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PREFACE 



This Program Logic Manual (PLM) is the 
second in a series of four volumes 
providing a detailed guide to the IBM 
System/360 Disk Operating System Logical 
IOCS programs. It consists of four parts: 

1. Logical IOCS support for Unit Record 
Files. 



Programs, Program Logic Manual , Form 
Y24-5017 



IBM System/360 Disk Operating System, 
IPL and Job Control Programs, Program 
Logic Manual, Form Y24-5086 



2. Logical IOCS support for Magnetic Tape 
Files. 

3. Logical IOCS support for Device 
Independent Files. 

4. Flowcharts. 

Parts 1, 2, and 3 supply descriptions of 
the declarative and imperative macros, DTF 
tables, and initialization and termination 
procedures for each of the file-types 
described. Part 4 supplies the detailed 
flowcharts associated with the descriptions 
in the first three parts. 

The appendixes in the back of this 
manual supply information intended to 
provide service aids to maintenance 
personnel. Included in this part are error 
message, cross-reference, and flowchart 
label lists. 
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INTRODUCTION 



This volume of the Disk Operating System 
Logical IOCS Program Logic Manual contains 
detailed information on the logical IOCS 
support of unit record, magnetic tape, and 
device independent files. It is intended 
for trained maintenance personnel 
experienced in the concept of using the 
Logical Input/Output Control System (LIOCS) 
for file processing. 

Beyond brief introductory descriptions 
of each of the files covered, this volume 
does not contain information of a general 
nature. If the reader requires basic 
knowledge or a review of the general 
concept and function of logical IOCS, he 
should refer to Volume 1 of Disk Operating 
System Logical IOCS listed on the front 
cover of this volume. 

This volume contains information on all 
the logical IOCS items (modules, DTF 
tables, imperative macros, open and close 
routines, etc.) required for the 
particular files discussed. The only 
exceptions are certain common and special 
purpose routines which cannot be related to 
any specific file. These routines; namely, 
the Open and Close Monitors, the Open 
routines for self-relocating programs, and 
the Checkpoint/Restart routines are 
described in detail in Volume 1. 

The files discussed in this volume are 
divided into three parts: 

• Unit Record Files 

• Magnetic Tape Files 

• Device Independent Files 

Files within a given group are presented in 
alphabetic sequence according to the last 
two letters of the DTFxx macro that defines 
the file (i.e., DTFCD, DTFCN. . .DTFPT) . 
Access to information on a particular file 
type can be made through either the Table 



of Contents or, more specifically, the 
Index. The information relating to a file 
type includes, in the order presented: 



• The file definition (DTFxx) macro. 

• The module generation (xxMOD) macro. 

• The imperative LIOCS macros (GET, READ, 
etc) used with the file. 

• The special Open and Close routines, if 
applicable. (Open phase $$BOUR01 for 
unit record files is presented first, 
because it applies to most of the unit 
record files supported by DOS Logical 
IOCS.) 

• The special purpose routines, such as 
message writers, if applicable. 

Part 4 contains the generalized and 
detailed flowcharts of the imperative 
logical IOCS macros supported by each of 
the data handling logic modules and the 
logical transient routines required for 
Open, Close, and other special functions. 

The logic supporting each of the 
imperative macros has been flowcharted from 
macro language (source statement) listings. 
In some instances these flowcharts contain 
decision blocks to illustrate the logic 
(i.e., coding) included in the modules for 
certain xxMOD macro parameter options. The 
reader should realize that these decisions 
do not appear in an assembly listing, but 
rather that a particular assembly listing 
is the result of these decisions being made 
at the time the logic module is generated. 

If an assembly listing is not available 
for a specific logic module, a listing of 
the source statements that generate the 
module can be obtained from microfiche 
cards referenced in Appendix D of this 
manual. 
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UNIT RECORD FILES 



The IBM System/360 Disk Operating System 
provides logical IOCS support for files on 
the following devices generally categorized 
as unit-record equipment: 



1050 Console Keyboard Printer 

1259 Magnetic Character Reader 

1285/1287 Optical Readers 

1403 Printer 

14 04 Printer (continuous forms only) 

1412/1419 Magnetic Ink Character 
Readers 

1442N1 Card Reader-Punch 

1442N2 Card Punch 

1443/1445 Printers 

2501 Card Reader 

2520B1 Card Reader-Punch 

2520B2/B3 Card Punch 

2540R Card Reader 

25 4 OP Card Punch 

2671 Paper Tape Reader 

The files used with these devices are 
defined by a DTFxx declarative macro and 
the data handling LIOCS module is 
generated, except for Console Files, by an 
associated xxMOD macro, (The DTFCN 
declarative macro not only defines the file 
but also provides the data handling logic 
module for console files.) 

The files described in this part 
includes 

• Card - card readers and punches 

• Console 

• Optical Reader 

• Magnetic Ink Character Recognition 

• Printer 

• Paper Tape 



INITIALIZATION AND TERMINATION 



Processing of a file by logical IOCS 
requires that the file be initialized, or 
opened, prior to the transfer of any data 
by the problem program. Likewise, when the 
transfer of all data is complete, the file 
is closed. 

With the exception of magnetic ink and 
optical reader files, which are handled 
separately, all unit-record files are 
opened by the unit record open logical 
transient phase, $$BOUR01, fetched by the 
Open Monitor (refer to Volume 1). On the 
other hand, unit-record files (except 
magnetic ink character reader files) 
require no special termination procedures 
and are closed by the Close Monitor that 
simply resets the open indicator in the 
DTF table for the file. 



$$B0URQ1: Open Unit Record Charts AA-AB 

Objective: To open a unit-record file. 

Entry: From the Open Monitor. 

Exits: To $$BOPEN, if the next file to be 
opened is not a unit-record file. 

To the problem program, if no more 
files are to be opened. 

To $$B0MSG1, to print out the error 
message: 

48831 INVALID LOGICAL UNIT 

Method: Entry to $$BOUR01 is from the OPEN 
Monitor, $$BOPEN, after the monitor has 
built the Open table in the top of the 
transient area and validated the limits of 
the DTF. This is the proper phase for 
opening DTFs types 02 and 04 through 08 as 
indicated in byte 20 of the DTF. 



LUB, and message 48831 is issued if it is 
unassigned. If the LUB specifies that the 
logical unit is to be ignored, a bit is set 
in the DTF but no message is given. If the 
LUB is- assigned, this routine opens unit 
record files for the following DTF types by 
performing the functions indicated: 

1. Reader. The open switch is turned on. 
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2. Printer. The open switch is turned on, 
and an I/O register is loaded if there 
are two I/O areas. If the printer has 
the universal character set feature, a 
set mode instruction is issued to allow 
or suppress data checks in accordance 
with user's choice. 

3. Punch. The open switch is turned on, 
and an I/O register is loaded if there 
are two I/O areas. 

After the DTF has been initialized by 
turning on the open indicator, this phase 
determines if there is another file to be 
opened. If not, control is returned to the 
problem program, via an SVC 11. If the 
next file is not unit record, the Open 
Monitor, $$B0PEN, is called. 



CARD DEVICE FILES 

Card Device (CD) files are those files 
associated with a card reader and/or a card 
punch. The devices supported include: 

• 1442N1 Reader-Punch 

• 1442N2 Punch 

• 2501 Reader 

• 2520B1 Reader-Punch 

• 2520B2 Punch 



• 2520B3 Punch 

• 2540R Reader 

• 2540P Punch 

The files associated with these devices are 
defined by the DTFCD macro. 



DTFCD Macro 



Three types of DTF tables can be generated 
by the DTFCD macro. The DTF table type 
generated for a particular file depends on 
the TYPEFLE= parameter specified by the 
user in the DTFCD macro. The three table 
types are: 

• DTFCD: Input (Reader) if TYPEFLE=INPUT 
(Figure 1). 

• DTFCD: Output (Punch) if 
TYPEFLE=OUTPUT (Figure 2). 

• DTFCD: Combined if TYPEFLE=CMBND 
(Figure 3). This parameter can be 
specified for 1442N1 or 2520B1 
reader- punch, or a 2 540 punch with the 
punch-feed-read (PFR) feature. 

The generated DTFCD table contains 
information describing the file and serves 
as a linkage to the CD logic module that is 
generated by a corresponding CDMOD macro. 
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T 



Bytes 


Bits 


i 


Contents 


j Function 
_j_ 








1 






T 


0-15 










| CCB. 


16 


0-1 
2 
3 
4 

5-7 








j Not used. 

| COBOL open; ignore option. 

j Not used. 

| DTF table address constants relocated 

| by OPENR. 

j Not used. 


17-19 










| Address of logic module. 


20 




| X'02' 




| DTF type. 


21 



1 
2 
3 
4 
5 
6 
7 








j 1 = open; = closed. 

j First time switch. 

j 1 = 1442; = other. 

| Reserved. 

j Reserved. 

| 1 = 2 I/O areas; 0=1 I/O area. 

j 1 = 2520; = other. 

| 1 = 2540; = other. 


22 










j Normal command code. 


23 










j Control command code. 


24-27 










| Address of IOAREA2. 


28-31 










j Address of EOF routine. 


32-39 










| CCW. 


40-43 




| LA 


SIOREG, 


0(14) 




44-49 




| MVC 


0UBLKSIZE,13) ,0(14) 





L . _± JL JL _ J 



Figure 1. DTFCD: Input (Reader) 
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r t t- 

| Bytes | Bits | 



I 



Contents 



Function 



0-15 
16 



17-19 

20 

21 



22 

23 

24-27 

28-31 

32-33 

34-37 

38 



39 

40-47 

48-55 



56-135 



0-1 
2 
3 
4 

5-7 



X'04' 



LR 12, (RECSIZE) 
LA £IOREG,4(14) 



CCB. 

Not used- 
COBOL open; ignore option. 
Not used. 

DTF table address constants 
relocated by OPENR. 
Not used. 

Address of logic module. 

DTF type. 

1 = open; = closed. 

First time switch. 

1 = CTLCHR. 

1 = fixed unblocked. 

1 = variable unblocked. 

1=2 I/O areas. 

1 = workarea. 

1=2 CCW*s in table. 

0=1 CCW in table. 

Normal command code. 

Control command code. 

Address of IOAREA1. 

Bucket. 1 



Not 


used. 


Not 


used. 


Not 


used. 


Not 


used. 


Not 


used. 


Not 


used. 


1 = 


1442. 


1 = 


2520B1 


Blank. 


CCW. 





CCW2 for ejecting last program card if 
device is a 2520B1. 

Used for repunching error card on punch 
file if device is a 2540. 

80-byte area for saving card image for 2540 
punch error retry. 



H 



^The bucket bytes handle undefined records. 



Figure 2. DTFCD: Output (Punch) 
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r 




- T T - 




~T ' 


h 


Bytes 


| Bits | 
_± ±. 


Contents 


| Function 
_4_ 


0-15 


T T 




1 — 
| CCB. 




16 


1 °" 1 1 
1 2 | 
1 3 | 
1 u 1 

1 5-7 | 




| Not used, 

j COBOL open; ignore option. 

| Not used. 

j DTF table address constants relocated 

| by OPENR. 

| Not used. 




17-19 






j Address of logical module. 




20 




X f 00" 


| DTF type. 




21 






| Command code (X'02 f for 1442, X , C2 i for 
| 2525 f 2540) 




22 






| Command code (X* 01* for 1442, x'09 - for 
| 2520,2540) 




23 






| Command code (X"01' for 1442, X'09 f for 
| 2520,2540) 




24-31 






| CCW. 




32-35 






j Input area address. 




36-39 






j Output area address. 




40-41 






| Input blocksize. 




42-43 






j Output blocksize. 




44-49 




MVC 0UBLKS,13),0(14) 






50-55 




MVC QUOUBL,14) , 0(13) 






56-59 






j End of file address. 




60-67 






j Savearea. 




68-73 




MVC KSOUBL-1,13), 0(13) 






74-77 




MVI OdBJjMO 1 






78-79 






j Constant (blanks). 




80-83 






| Constant address (bytes 78-79) 



| Fig 



ure 3. DTFCD: Combined Reader/Punch File 



CDMOD Macro 



The CDMOD macro provides the model 
statements needed to generate logic modules 
that contain the GET, PUT, and CNTRL logic 
for a card reader or punch. It includes 
the capacity to handle a combined file, 
which uses the Punch Feed Read (PFR) 
feature on the IBM 2540. The combined file 
can also be handled on the IBM 1442-N1. 



Over 200 different logical modules can 
be generated from the CDMOD macro. Because 
it would be impractical to flowchart and 
describe every possible variation, the 
CDMOD macro internals are flowcharted to 
indicate the many parameter variations and 
combinations that can be handled. 

The CDMOD macro can generate logic 
modules needed to handle all the normal 
record forms applicable to a card reader/ 
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punch. A particular CD logic module is 
designed to handle only those items that 
are indicated by the CDMOD macro 
parameters. For instance, if TYPEFLE=INPUT 
and RECFORM=FIXUNB are specified, the 
generated module does not handle output 
files, nor variable or undefined records. 
The logic module can include the use of one 
or two I/O areas, the use of a work area to 
process the records, and the logic to 
handle the CNTRL macro if stacker selection 
is desired. 



GET instructions used (in the problem 
program) with this logic module. 

For combined files, I0AREA2 serves as 
the output area if it is specified; and 
I0AREA1 is the input area. If I0AREA2 is 
not specified, I0AREA1 serves for both 
input and output. 



CDMOD: PUT Macro Charts BE-BH 



A separate logic module is needed for 
every reader/punch record format variation. 



Objective: To punch a card (normal or 
combined files) . 



CDMOD: CNTRL Macro Chart BA 



Objective: To stacker select a card into a 
specified stacker pocket. 

Entry: From a CNTRL macro expansion. 

Exit: To the problem program. 

Method : The control code specified by the 
user passes to the CNTRL routine in general 
register 0. The CNTRL routine then 
modifies the control code as required for 
the file type and device specified for the 
file. The modified control code is stored 
in the command code byte in the DTF table. 

If the file is an input file defined for 
a device other than a 1442, the control 
operation is performed immediately. In all 
other cases, the control operation is 
delayed until the next GET or PUT macro is c 
issued. 



Entry: From a PUT macro expansion. 
Exit: To the problem program. 



Method: 



For regular output card files, the 



PUT routine punches the next sequential 
record in the file into a card. If 
W0RKA=YES is specified in the DTFCD and 
CDMOD macros, the record is built in the 
workarea and then moved to the appropriate 
output area before punching is performed. 
If IOAREA2=YES is specified in the DTFCD 
and CDMOD macros, overlap of I/O and 
processing is possible by alternately 
switching output areas. 

For combined files (1442 or 2540 with 
PFR) , IOAREA2 if it is specified, is used 
as the output area. If I0AREA2 is not 
specified, IOAREA1 serves as both the input 
and the output area. 



CONSOLE FILES 



CDMOD: 



GET Macro Charts BB-BD 



Obj ective: To read a card (normal or 
combined file). 

Entry: From a GET macro expansion. 

Exit: To the problem program or to the 
user's EOF routine. 

Method: For regular input files when two 
I/O areas are used, I/O and processing 
overlap is possible. On the first GET 
operation, one I/O area is filled and 
another SVC is issued before any 
processing is allowed. After the second 
SVC is issued control returns to the 
problem program so that processing of data 
in the first I/O area can begin. If two 
I/O areas are specified, the first GET 
macro instruction sets a switch, which 
changes the logic flow of all the following 



Console files (CN) are files associated 
with the system 1050 console. These files 
are defined, by a DTFCN macro, as input or 
output files containing either fixed 
unblocked or undefined records. 

Console files are neither opened nor 
closed by logical IOCS. 



DTFCR Macro 



Logical IOCS support of console files 
differs from other files. One macro, 
DTFCN, generates both the DTF table and the 
logic module (Figure 4). The Version 3 
DTFCN macro generates both table and module 
from statements contained in the source 
statement library. (Previous versions 
required linkage editing between the DTFCN 
table and a section definition in the 
relocatable library.) If TYPEFLE=INPUT is 
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specified in the DTFCN macro , the module 
generated supplies the logic for both the 
GET and PUT functions. If TYPEFLE=OUTPUT 
is specified, the generated module supplies 
the logic for only the PUT function. 



r t 

Bytes 



h 



Contents 



Function 



0-15 
16 

17-19 

20 

21-23 

24-31 



X'20 f 
X'08' 



X*03' 



X ' 09 ' , IOAREA1, X' 00 ' , BLKSIZE 



CCB. 

COBOL open; ignore option. 

DTF table address constants relocated 

by OPENR. 

Address of logic module: 

GET and PUT logic if TYPEFLE=INPUT; 

PUT logic if TYPEFLE=OUTPUT. 

DTF type. 

Not used. 

CCW. 



End of table if RECFORM=FIXUNB and WORKA not specified. 



The following bytes are added to the table if WORKA is specified. 



32-35 
36-39 
40-43 



DC A(IOAREAl) 
DC F'0' 
DC F'O* 



Address of I/O area. 
Register savearea. 
Register savearea. 



End Of table if RECFORM=FIXUNB. 



The following bytes are added to the table if RECFORM=UNDEF . 



DC F'0' 

DC F^' 

DC H" BLKSIZE" 

DC AL2(BLKSIZE-1) 



Register savearea. 
Register savearea. 
I/O area size. 
For input files only. 



Figure 4. DTFCN: Console 



DTFCN: 



GET Macro Chart CA 



Objective: To read from the system 
console, that is, to allow a record to be 
typed in from the console keyboard. 



Entry: From a GET macro expansion to the 
label IJ2xxxxx. 

Exit: To the problem program. 



Method: Upon entry to the GET routine, the 
CCW command code is set to hex • 0A" for a 
read operation. If UNDEF is specified in 
the RECFORM= parameter in the DTFCN macro, 
the user specified BLKSIZE is moved into 
the byte count area of the CCW. (If FIXUNB 
is specified in the RECFORM= parameter in 
the DTFCN macro, the byte count area of the 
generated CCW automatically contains a 
count of 80.) An SVC is then issued to 
read the record into IOAREA1. If a 
workarea was not specified in the DTFCN 
macro, control returns to the problem 
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program immediately after completion of the 
I/O operation. 

If WORKA=YES is specified in the DTFCN 
macro, the contents of I0AREA1 are moved to 
the workarea before control returns to the 
problem program. 



DTFCN: 



PUT Macro Chart CB 



Objective: To write a record on the system 
console printer. 

Entry: From a PUT macro expansion to the 
label IJ2MXXXX. 

Exit: To the problem program. 

Method: Upon entry to the PUT routine, the 
CCW command code is set to hex • 09* for a 
write operation. If a workarea is 
specified in the DTFCN macro, a test is 
made, before the routine proceeds, to 
determine if a previous I/O operation is 
complete and if not an SVC 7 is issued. If 
the file definition specifies undefined 
records (RECFORM=UNDEF parameter in the 
DTFCN macro) a check is made to determine 
if the BLKSIZE is greater than the record 
length, RECSIZE. (The byte count in the 
generated CCW is automatically equal to the 
BLKSIZE specified by the user.) If BLKSIZE 
is greater, the CCW byte count is modified 
to the value of RECSIZE. 

Note: If RECSIZE is greater than BLKSIZE, 
the output record will be truncated. 



In all cases where a workarea is 
specified, the record is moved from the 
workarea to IOAREA1 before an SVC is 
issued to write the record on the console 
printer. After the SVC is issued, 
control returns directly to the problem 
program. 

If no workarea is specified, the record 
to be written is available in IOAREA1, and 
an SVC is issued directly. The routine 
then waits for completion of the I/O 
operation before control is returned to the 
problem program. 



MAGNETIC INK CHARACTER RECOGNITION FILES 



Magnetic Ink Character Recognition (MICR) 
files are input files processed by 1259 or 
1412/1419 magnetic ink characters readers. 
MICR files are defined by a DTFMR macro and 
the processing logic module is generated by 
an associated MRMOD macro. 



DTFMR Macro 



The DTFMR Macro (Figure 5) can generate two 
types of DTF tables. The type generated 
for a particular file depends on the 
ADDRESS= parameter specified by the user in 
the DTFMR macro. Although the two table 
types have been combined in this 
publication, the variation in the entries 
for ADDRESS=DUAL are noted in the table. 
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r 


_ T -, 


r 


j Bytes 


(Bits 


Function 


L 


_x 




r 


— Y 





| 0-5 




CCB indicators. 


| 6-7 




Logical class and unit numbers. (Primary if DUAL 


1 8 




Zero. 


| 9-11 




CCW address. 


| 12-15 






1 16 


| 0-1 


Not used. 




i 2 


COBOL open; ignore option. 




1 3 


Not used. 




1 4 


DTF table address constants relocated by OPENR. 




1 5-7 


Not used. 


| 17-19 




Address of logical module. 


| 20 




DTF type = X g OB 1 


1 21 




Logical module option switches. 




1 o 


User disengage 
= Off; 1 = On 




1 1 


Program sort mode 
= No; 1 = Yes 




1 2 


First time switch (after engage) 
= No; 1 = Yes 




1 3 


Addressing = DUAL 
= No; 1 = Yes 




1 4 


Waiting 

= No; 1 = Yes 




| 5 


Read logic indicator 
= No; 1 = Yes 




1 6 


Not used. 




1 7 


Supervisor initial read (after open) 
= No; 1 = Yes 


| 22-29 




Symbolic filename. 


| 30 




Open/Close option switch. 




1 o 


Open indicator 

= Closed; 1 = Open 


| 31-33 




Open/Close option switches. 


| 34-35 




Logic module option switches. 


| 36-39 




Error information status. 



L X X- 



J 



Figure 5. DTFMR (Part 1 of 4) 
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r t 


- T - 




j Bytes j Bits 

L J. 


— I.— 


Function 


r t 


T 




| 40-41 | 




Length of DTF table. 


| 42-43 | 




Device type indicator. 


| 44-45 | 




Record type. 


| 46-49 | 




Reserved for future use. 


| 50-51 | 




I/O register. 


| 52-55 | 




End of file address. 


| 56-59 | 




IOAREA2/1 address. 


| 60-63 | 




Document buffer size. 


| 64-65 | 




Blocking factor/Number of buffers. 


| 66-67 | 




I/O area size. 


| 68-71 | 




Record length. 


| 72-76 | 




Sense information. 


1 77 | 




Supervisor switch. 


| 78-79 | 




Logical Class and Unit numbers (Secondary — for DUAL 
addressing only) . 


| 80-81 | 




Register alignment bytes. 


| 82-83 | 




Logical Class and Unit numbers (Primary — for DUAL 
addressing) . 


| 84-87 | 




Document buffer size. 


1 88 | 




Command code (4C). 


| 89-91 | 




Address of last byte of first document buffer. 


1 92 | 




Command code (4C). 


| 93-95 | 




Address of last byte of last document buffer. 


| 96-99 | 




Stacker-select routine address. 


|100-103 | 




Address of stacker select CCW chain. 


(104-107 | 




Current buffer address pointer (Supervisor). 


1108-111 | 




Supervisor count. 


|112-113 | 




Number of buffers (5 for SINGLE, 7 for DUAL). 



Figure 5. DTFMR (Part 2 of 4) 
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- T - 




Bytes j Bits 

. - X - 


1 


Function 


T 


1 




114-1151 




Message indicator. 


116-1191 






120-121| 




Logical Class and Unit numbers (Secondary — for DUAL 
addressing only) • 


122-123| 




Reserved for future use. 


124-127) 




Address of last buffer given to user. 


128-131| 




Address of first byte of last buffer. 


132-139| 




Channel status word (CSW) . 


140-143) 




Address of active GET record. 


144-147| 




GET counter. 


148-159) 




Reserved for future use. 



For SINGLE Addressing 



160-167 
168-175 
176-183 
184-191 
192-199 
200-207 
208--215 
216-223 
224-231 
232-239 
240-247 



I— 
I— 



CCW - Engage. 

CCW - Read. 

CCW - Sense. 

CCW - NOP. 

CCW - Stacker Select. 

CCW - TIC. 

CCW - Control. 

CCW - BN. 

CCW - Read. 

CCW - Sense. 

CCW - Disengage. 

For DUAL Address Adapter 



-T- 

I 



160-167| 

I 
168-175J 

X. 



CCW - Engage. 

CCW - Read Buffer 1. 



Figure 5, DTFMR (Part 3 of 4) 
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Bytes | Bii 
4. 


:s j 
4- 




Function 


T 


T 






176-183| 


| CCW 


- 


Sense. 


18U-191| 


| CCW 


- 


NOP. 


192-199| 


| CCW 


- 


Read Buffer 2. 


200-207| 


| CCW 


- 


MOD Sense. 


208-215| 


| CCW 


- 


Read Buffer 1. 


216-223| 


| CCW 


- 


MOD Sense. 


224-231| 


| CCW 


- 


TIC TO NOP. 


232-239| 


| CCW 


- 


NOP. 


240-247| 


| CCW 


- 


MOD CTL. 


248-255| 


| CCW 


- 


Stacker Select. 


256-263| 


| CCW 


- 


MOD Sense. 



J. X J 



Figure 5. DTFMR (Part 4 of 4) 



MRMOD Macro 



The MRMOD macro provides the necessary 
logic to process Magnetic Ink Character 
Recognition (MICR) files. The logic module 
can handle MICR files with either dual or 
single addressing. 



The functions of the MR logical IOCS 
module are: 

1. To locate the record (document buffer) 
to be processed (GET/READ). 

2. To test for a "document ready for 
processing" condition (CHECK). 

3. To start and stop the feeding of 
documents through the device (DISEN; 

disengage engage is an automatic 

function of GET or READ). 



inherent wait that occurs when no document 
is ready for processing. 

The READ macro posts an indicator in the 
current document buffer signifying that the 
buffer is not ready for processing. The 
user examines that status of this indicator 
by issuing the CHECK macro. 

The WAITF macro determines if processing 
can continue. If processing cannot 
continue, the system enters the wait state 
if it is operating in a BJS environment, or 
the system is allowed to continue 
processing in another partition if it is 
operating in a MPS environment. 



MRMOD: 



CHECK Macro Charts DA-DC 



Objectives: To determine the status of the 
current document buffer: 



4. To turn on the pocket lights (LITE). 

5. To exit from the partition in a MPS 
environment, or to enter the wait state 
in a Batched Job System (BJS) 
environment, when no useful processing 
can be performed (WAITF). 

The READ, CHECK, WAITF macro combination 
is provided for users operating more than 
one 1412/1419 in a given partition of the 
system. The READ macro performs all the 
functions of the GET macro except the 



1. Buffer ready for processing. 

2. Buffer waiting for data. 

Entry: From the CHECK macro expansion to 
the label IJUCHEK. 

Exjt : To the problem program at one of 
three locations : 

1. The next sequential instruction if the 
document buffer contains data and is 
ready for processing. 
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2. The address specified in the label 
operand of the macro if the document 
buffer is waiting for data. 

3. The ERROPT address specified in the DTF 
if the document buffer contains posted 
error-condition indicators. 

Method : The CHECK macro first tests the 
condition of the wait bit (bit 5 of the 
first byte) within the current document 
buffer. If this bit is on, indicating that 
the device is waiting for a document to be 
read, a branch is made to the address 
specified in the second (label) operand of 
the CHECK macro. This bypasses normal 
record processing and allows continuation 
of other processing in the partition. If 
the second (label) operand is not specified 
in the CHECK macro, control is passed to 
the ERROPT address. If neither of these 
addresses is specified, a branch is made to 
the next sequential instruction following 
the CHECK macro expansion. 

If the wait bit is off, a second test is 
made to determine if the Buffer Status 
Indicator (BSD bit (bit of the first 
byte within the current document buffer) is 
on. If the bit is on, indicating that the 
data is valid and ready for processing, a 
branch is made to the next sequential 
instruction following the CHECK macro 
expansion where normal processing resumes. 

If both bits are off (bits and 5), 
indicating either that the device is not 
operational or that the document buffer 
data is in error, a branch is made to the 
ERROPT location specified in the DTF for 
further analysis of the error conditions by 
the user- If the ERROPT location is not 
specified, a branch is made to the next 
sequential instruction following the CHECK 
macro expansion. 



MRMOD: DISEN Macro Chart DD 



Objective: To disengage the 1412/1419 MICR 
device and stop the feeding of documents 
whenever necessary. 

Entry: From a DISEN macro expansion to the 
label IJUDISEN. 

Exit : To the problem program. 

Method : The DISEN macro turns on the user 
disengage indicator (bit of byte 21) in 
the DTF and checks for the type of address 
adapter used with the device. If dual 



addressing is specified, the NOP 
instruction in the CCW chain is changed to 
a disengage instruction, X'DF'. If single 
addressing is specified, the chaining bit 
is set on in the CCW chain. 



Note: 



A DISEN macro must be issued before 



a LITE macro can be issued. 



MRMOD: GET Macro Charts DA-DC 



Objectives : 

1. To provide a pointer, in the user 
register IOREG, to the next document 
buffer to be processed in the document 
buffer area (Figure 6). 

2 . To issue engage commands to the MICR 
device when necessary. 

Entry: From a GET macro expansion to the 
laJDel IJUGETCK. 

Exit: To the problem program after a 
document buffer is filled with a stacker- 
selected document, or after error 
conditions are posted in the buffer. 



Method: 



When more than three records 



remain in the document buffer area, the 
user's I/O register (IOREG) is loaded with 
the address of the next document buffer to 
be processed and the previous document 
buffer is reset to binary zeros. Control 
then returns to the user. 

When three, or fewer than three, records 
remain in the document buffer area, a test 
is made to determine if three or more 
document buffers are empty and it is 
necessary to engage the MICR device to feed 
more documents. If it is necessary to 
issue engage commands, a branch is made to 
IJUENGCK (Chart DB) where the necessary 
modifications are made to the CCW chain and 
the I/O operation executed. 

If an engage is not required or after 
the engage commands are issued, the status 
of the document buffer is checked. If the 
buffer is ready for processing, the 
procedure followed is the same as for more 
than three records remaining in the I/O 
area. If the document buffer is not ready 
for processing, checks are made for errors 
and flags are set in the buffer as 
indicators of the error conditions found. 
This information is then passed to the user 
for further analysis. 
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Document 

Buffer 

Area 



Document 
Buffer 

(IOREG) 




•Document Buffer Status Indicators: 
Hex 02 : Closed 
Hex 04 : Wait 

Hex 08 : Intervention Required 
Hex 10 : Unit Exception 
Hex 20 : Unrecoverable I/O Error 
Hex 40 : Recoverable I/O Error (reject) 
Hex 80 : Buffer Ready for Processing (BSI bit) 



Figure 6, MICR Buffer Format (1412/1419) 



MRMOD: LITE Macro Chart DE 



Objective; To turn on the pocket lights 
specified in the pocket light indicator by 
the -user. 



Entry: From a LITE macro expansion to the 
label IJULITE. 

Exit : To the problem program. 

Prerequisites : 

1- A DISEN macro must be issued before the 
LITE macro is issued. 

2. The unit exception bit must be turned 
on in the CCB in the DTF table before 
the LITE macro is issued. 

Method : The LITE macro checks the pocket 
light indicator (Figure 7) bit by bit, to 
determine and turn on the lights specified 
by the user. After each specified pocket 
light is turned on, a check is made for the 
occurrence of an unrecoverable I/O error 
during the turning on of the light. If an 
error occurred, bit 15 of the pocket light 
indicator is set. 



r ■ t t 1 

(Label | Byte | Byte 1 j 

^ +- T - T ~T-T~T"T~T~+-T-T-T~T T ^ 

I I I I I I I I I I I I I I I I 

|Bit |0|1|2|3|4|5|6|7|8|9|A|B|C DE | F | 

\ +H--+-+H--+-+-+-+-+-+-+-+ + — j 

I I I I I I I I I I I I I I I I 
|Pocket| | | | | | | | | | | | |Binary|Err| 
| Light |A|B|0|l|2|3|4|5|6|7|8|9|Zeros |Ind| 

L JL_X_X_i-J._X_X_X_J._A_JL_l._JL X J 

Figure 7. 1412/1419 Pocket Light Indicator 

The pocket light indicators are tested 
in the sequence: B, A, 9, 8 f 7, 6, 5, 4, 
3, 2, 1, 0. To turn on a particular pocket 
light, a pocket code is combined with a 
stacker select command code. 

Example : Assume that the light in 
pocket B is to be turned on, that is, bit 1 
of the pocket indicator is on. 

Upon entry to the pocket light routine 
of the MRMOD, a count of 12 is initially 
loaded into a register. When the actual 
light program loop is entered (at location 
IJUNXTLT) and it is determined that the 
pocket B light is to be turned on, the 
count is reduced by one to 11. The 11 is 
then multiplied by 16. The result is 176, 
or a hexadecimal B0. 
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For the single address ad apter , the hex 
BO is ORed with a hex OF and results in a 
command code of hex BF. For the dual- 
address adapter, the hex BO is ANDed with a 
hex F7 and results in a command code of hex 
B7. After the pocket light is successfully 
turned on, the initial count (12) is 
reduced by one and the routine returns to 
location IJUNXTLT to test for the next 
pocket light. 



MRMOD: 



READ Macro Charts DA-DC 



Objectives : 

1. To provide a pointer , in the user 
register IOREG, to the next document 
buffer to be processed in the document 
buffer area (Figure 6) . 

2. To issue engage commands to the MICR 
device when necessary. 

Entry: From a READ macro expansion to the 
label IJUREAD. 

Exit: To the problem program after a 
document buffer is filled with a 
stacker-selected document, or after error 
conditions are posted in the buffer. 

Method: Same as the GET macro except for 
the inherent wait that occurs when the 
document buffer is not ready for 
processing. Instead of issuing a wait SVC 
(SVC 7), the READ macro posts an indicator 
in the document buffer (bit 5 of first 
buffer byte) to signal that the buffer is 
not ready for processing. The user, after 
examining the indicator by issuing a CHECK 
macro, can then transfer processing to 
another location within the partition until 
the buffer is ready for processing. 



MRMOD: 



WAITF Macro Chart DF 



Objective: To test whether any 1412/1419 
MICR devices specified in the macro operand 
(wait list) are operative and processing 
should continue, or if all the devices 
specified are inoperative and IOCS should 
enter the wait state. 

Entr y: From a WAITF macro expansion to the 
label IJUWAITF. 

Exit: To the problem program. 

Method: The WAITF macro loads a work 
register with the address of the DTF table 
for the file specified by the first 
operand. Tests are then made to determine 



if the file is in an operative condition. 
If the file is operative and ready, 
processing is resumed at the next 
sequential instruction following the macro 
expansion. 



Note: When more than one file is specified 
in the operand of the WAITF macro (wait 
list) , normal processing is resumed after 
the first operational file is detected, 
thereby omitting checking of any remaining 
files in the wait list. To accomplish 
this, the pointer in the wait list is 
repeatedly incremented by 4 (the length of 
each operand) until the end of the wait 
list is reached (the first nonzero byte) . 
When the end-of-the-wait list has been 
detected, the pointer (register 14) then 
contains the address of the next sequential 
instruction following the macro expansion. 

If the file currently being tested is 
net operational, the address of the DTF 
table for the next file specified in the 
macro operand is obtained and the tests are 
repeated for the next file. 

If none of the files specified in the 
operand are operational, an SVC 29 is 
issued and the wait state is entered. If 
the system is operating in an MPS 
environment, processing is allowed to 
continue in another partition. When one of 
the files becomes operational, processing 
can resume in the partition in which the 
device is operating. 



Initial ization and Termination of MICR 
Files 



Magnetic Ink Character Recognition files 
are one of the very few types of unit 
record files that are opened and closed by 
logical transients included in the system 
to handle a specific file type. These 
logical transients, $$BOMR01 and $$BCMR01, 
are fetched by the Open and Close Monitors 
respectively (refer to Volume 1). 



$$BOMR01: O pen MICR (Ma gnetic Ink 



r«V»^*-^^.4- a 






Objective: To open 1412/1419 MICR files 
and to initialize the document buffer area. 

Entry : From the Open Monitor, $$BOPEN, to 
the label FRSTINST. 

Exit : To the Open Monitor, $$BOPEN. 
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Method : The $$BOMR01 routine clears the 
entire document buffer area and checks for 
device assignment. It then calculates the 
Physical Unit Block (PUB) entry address for 
the device, and determines from the PUB 
information which entry in the Supervisor 
table of DTF addresses (PDTABB) is to be 
used. The address of the DTF table is then 
inserted into the proper entry in the 
PDTABB table. Refer to the Program Logic 
Manual (PLM), IBM Sy s tem/360 Disk Operating 
Syst em, Superv isor and Physical and Logical 
Transients, listed in the Preface of this 
manual for the format and use of the PDTABB 
table. 

The unit exception bit in the CCB is 
turned on and the remainder of the DTF is 
initialized. The open indicator (bit of 
byte 30) is set on in the DTF to signal 
that the file is open and the Open Monitor, 
$$B0PEN, is fetched to determine if more 
files are to be opened. 



$$BCMR01: Close MICR (Magnetic Ink 

Character Recognition) Chart D H 



Objective: To close 1412/1419 MICR files 
and to reinitialize the DTFMR table. 



$$BMMR20: MICR Message Writer Chart DJ 

Objective : To print one of two error 
messages for MICR devices: 

1. 4MR1I - EXTERNAL INTERRUPT I/O ERROR 

2. 4MR2I - SCU NOT OPERATIONAL 



Entry : From the MR logical IOCS module 
when an error occurs during a GET or READ. 

Exit : To the logical IOCS module after the 
proper message is printed. 

Method : The $$BMMR2 message writer 
routine examines the message indicator in 
the DTF table (bytes 114-115) to determine 
the appropriate message. It then extracts 
information from the DTF and CSW, converts 
the information to printable form, and 
inserts it into the message. 

The proper message is then printed on 
SYSLOG and control is returned to the 
logical IOCS module. 



Entr y: From the Close Monitor, $$BCL0SE, 
to the label FRSTINST. 



OPTICAL READER FILES 



Exit : To the Close Monitor, $$BCL0SE. 

Meth od: The $$BCMR01 routine resets the 
open indicator in the DTF and the traffic 
(wait) bit in the CCB, and turns off the 
external line status indicator for the 
file. 



Optical Reader (OR) files are input files 
associated with 1285/1287 optical readers 
and defined by a DTFOR macro. An ORMOD 
macro provides the data handling logic 
module for this type of file. 



MICR Error Messages 



Error conditions occurring on 1412/1419 
MICR devices are reported to the operator 
via a special MICR error message writer 
logical transient, $$BMMR20. 



DTFOR Macro 



The DTF table generated by the DTFOR macro 
services both the 12 85 and the 1287 optical 
readers. If the device is a 1287, either 
journal tapes or documents can be processed 
(Figure 8). 
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r t t- 

| Bytes | Bits | 
| + + . 



Function 



0-15 
16 



17-19 
20 

21 



22-23 

24-39 

40-47 

48-51 

52-55 

56-59 

60-63 

64-67 

68-71 

72-75 

76-79 

80 

81 



0-1 
2 
3 
4 

5-7 



I 
i 

-JL- 





1 

2 
3 
4 

c;-7 l 
X 



Dummy CCB. 

Not used- 
COBOL open; ignore option. 
Not used. 

DTF table address constants 
relocated by OPENR 
Not used. 

Address of logic module. 

DTF type=X , 09 i . 

DTF type=X , 0A f (HEADER=YES) . 

PIOCS switches. 

1 = Open; = Closed. 

1 = Input. 

1 = Control. 

1 = Device is 1285 or 1287. 

1 = Header. 

Reserved for future use. 

1 = RDLNE. 

Not used. 

Not used. 

CCB. 

Sense CCW. 

Lost lines (equipment check), 

After 10 retries. 

Wrong length records. 

After 10 retries. 

Keyboard corrections. 

Data checks. 

Lines marked. 

Total lines read. 

Error indicators. 

LIOCS switches. 
1 = First time. 
1=2 I/O areas. 
1 = WORKA=YES 
1 = RECFORM=FIXUNB 
1 = RECFORM=UNDEF 



Figure 8. DTFOR (Part 1 of 2) 
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r t t 

| Bytes | Bits | 
|. + + 



Function | 
^ 



1 82 | 


| Normal command code. 


1 83 | 


| Control command code. 


| 84-87 | 


| IOAREA2 address. 


| 88-95 | 


| Read CCW. 


| 96-103| 


| Go to next line CCW. 


|104-111| 


| Control CCW. 


|112-115| 


j EOF address. 


|116-119| 


| Correction exit address 


|120-123| 


| IOAREA1 address. 


|124-127| 


| DC AUBLKS-1) 


|128-129 | 


| SR 13,£RECS 


|130-131| 


| LR SRECS,13 


|132-133] 


| LR SIOR,13 


|134-135| 


j Sense. 


L J. 


j. _ 


Figure 8. D 


TFOR (Part 2 of 2) 


ORMOD Macro 





ORMOD: CNTRL Macro Charts EA-EC 



The module generated by the ORMOD macro 
provides the logic to perform the GET, 
CNTRL, and RDLNE functions for the 1285 and 
1287 (tape mode) Optical Reader, and the 
READ, WAITF, CNTRL, RESCN, and DSPLY 
functions for the 1287 (Document Mode) 
Optical Reader. 



For 1287 operating in document mode, the 
logic module handles only unblocked 
records, and supports fixed and undefined 
record formats. For both 1285 and 1287, 
blocked records are also handled if the 
device is operating in tape mode. 



The ORMOD is capable of generating many 
logic modules, each tailored to specific 
parameters. The number of different 
modules that can be generated is so great 
that it would be impractical to flowchart 
and describe every possible variation 
individually. To stay within practical 
limits, the internals of the OR module are 
flowcharted and described to indicate all 
variations. 



Objective; To execute a control operation 
for 1285 and 1287 optical reader. 

• For 1285 or 1287 operating in tape 
mode, the control operation is either 
mark a line or read a complete line 
from the keyboard. 

• For 1287 operating in document mode, 
the control operation is either eject, 
eject and stacker-select, 
stacker-select, or increment the 
document. 



Entry ; From a CNTRL macro expansion. 



Exit s: 

• Normal exit from the CNTRL routine is 
to the problem program. 

• To the user's end-of-file routine when 
an EOF condition is reached. 

• To the user's correction routine when a 
recoverable error occurs. 
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Method: The CNTRL routine ensures that any 
previous I/O operation is complete. It 
then sets the appropriate control command 
code (supplied by the user in general 
register 0) in the CCW and causes the 
control function to be performed. 

If the control function is to read a 
line from the keyboard, the routine checks 
for a unit exception after the read 
operation is complete. If the control 
function is other than read a line from the 
keyboard, and a unit check occurs, the 
routine checks for command reject, late 
stacker-select , or recoverable errors. 

If a unit exception or a read keyboard 
operation occurs, or if a recoverable type 
error occurs, the CNTRL routine branches to 
the address supplied in the DTF for the 
user's correction routine to attempt a 
recovery from the error before returning 
control to the problem program. 



ORMOD: 



DSPLY Macro Chart ED 



Objective: To cause a complete field of 
data from a document to be displayed on the 
display scope of the 1287. 

Entry : From the DSPLY macro expansion. 

Exit: To the problem program. 

Method: The routine modifies the read 
backward CCW by changing the command code, 
input address, and chaining flags. It then 
blanks out the portion of I/O area into 
which it is reading. An EXCP is then 
issued for this CCB. When the I/O 
operation is complete, the routine checks 
for a unit exception indicating an error 
was made in keying in corrections. The 
command is re- executed if necessary. If a 
unit exception is not present, an exit is 
made to the problem program. 



If two I/O areas or one I/O area and a 
workarea are used, I/O and processing 
overlap is possible. On the first GET 
operation, one area is filled and another 
EXCP is issued before any processing is 
allowed. After the second EXCP is issued, 
control is returned to the problem program 
so that processing can begin on the data in 
the first I/O area. If two I/O areas are 
specified, the first GET macro instruction 
sets a switch that changes the logic flow 
of all the following GET instructions used 
in the problem program with this logic 
module. If a workarea is specified, the 
contents of the I/O area are moved to the 
workarea. The next EXCP is issued, and an 
exit to the problem program is made. If 
RECFORM=UNDEF, the contents of the I/O area 
are left- justified in the workarea. 



ORMOD: RDLNE Ma cro C hart EP-EQ 



Objective: To cause a line of data from a 
journal tape to be read in the on-line mode 
while processing is in the off-line 
correction mode. 

Entry: From the RDLNE macro expansion. 

Exit : To the problem program. 

Method: The routine indicates a keyboard 
correction, modifies the CCW with a read 
backward on-line command, and issues an 
EXCP. When the I/O operation is complete, 
the routine checks for equipment, 
wrong-length record, and data checks. If 
present, these conditions are posted to the 
DTF, and an exit is made to the problem 
program. 



ORMOD: 



READ Macro Chart ER 



ORMOD: GET Macro Charts EE-EH and EJ-EN 



Objective: To access a record from the 
1285 and 1287 (tape mode) optical character 
readers. 

F.ntrv* "Firnm +-h<= f^TTT mar^-m oynanQion. 



Exit : To the problem program. 

Method: The GET routine reads a record 
from the 1285/1287 optical reader and 
places it in main storage starting at the 
rightmost position of the I/O area and 
continuing to the left until the last 
character has been read. 



Objective: To access a record or records 
from the 1287 optical character reader when 
processing documents. 

Entr y: From the READ macro expansion. 

Exit: To the problem program. 

Method: The READ routine reads a record or 
records from a document by executing the 
users CCW's. It is the user's 
responsibility to properly set up the CCW's 
before the READ macro is issued. 
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ORMOD : 



RESCN Macro Charts ES-ET 



Objectives: To allow up to nine retries of 
an unreadable line of data on a document. 
Also to allow a read in the on-line mode 
while processing in the off-line correction 
mode. 

Entry: From the RESCN macro expansion. 

Exit: To the problem program. 

Method: The routine modifies the CCW to 
allow data checks, and an EXCP is issued. 
After the I/O operation is complete, the 
routine checks for and posts equipment 
checks* data checks, and wrong-length 
records. The line of data is retried the 
number of times specified. 

When the retries are completed, control 
returns to the problem program unless 
forced on-line correction was specified. 
In the case of forced on-line correction, 
the CCW is modified to force on-line 
correction and another EXCP is issued. 

ORMOD: WAITF Macro Charts EU-EX 



Objective: To provide storage resident 
error recovery in addition to its normal 
function of waiting for I/O completion. 

Entry: From the WAITF macro expansion. 

Exit: To the user specified COREXIT 
routine if a read error occurred or to the 
next sequential instruction following the 
WAITF macro expansion in the problem 
program if read was error-free. 

Method: After checking for completion of 
the previous I/O, the routine tests for 
unit check. If unit check occurred, a 
check is made to determine if the cause of 
the interrupt is due to hardware or an 
unreadable character, lost line, etc. If a 
hardware error has occurred, a transient 
error routine is called, and a message is 
printed to the operator. If the error is 
due to an unreadable character or line, it 
is retried up to nine times (depending on 
error) , posted to the user and then a 
branch is taken to the user's COREXIT 
routine. On a return from COREXIT f the 
operation is restarted from where the CCW 
chain was broken. Control is then returned 
to the problem program. 



Init ialization and Te rmin ation of Optical 
Reader Files 



Optical reader files are opened by the 
logical transient $$BOOR01 that is fetched 



by the Open Monitor (refer to Volume 1) . 
These files are closed by the Close 
Monitor, $$BCLOSE, which simply resets the 
open indicator in byte 21 of the DTF table. 



Open Optical Reader Chart EY 

Objective: To open an optical reader file. 

Entry: From the Open Monitor ($$BOPEN). 

Exi t: To $$BOPEN or cancel. 

Method: If the optical reader file 
contains a header, this phase reads it into 
I0AREA1. If it does not contain a header, 
an I/O NOP is performed. 

If a valid DTF type was found 
(indicating the presence or absence of the 
header) , the routine then returns to the 
Open Monitor ($$BOPEN) to determine if any 
more files need to be opened. The routine 
aborts the job if an invalid DTF type is 
present. 



PRINTER FILES 



Printer (PR) files are defined by a DTFPR 
macro for contin uous forms output files on 
1403, .1404, 1443, and 1445 printers. In 
addition, the Selective Tape List (STL) 
feature for printing journal tapes on a 
1403 is also supported. 

Data handling logic for printer files is 
supplied by the associated PRMOD macro. 

Printer files are opened and closed by 
the Open and Close Monitors, respectively, 
(refer to Volume 1). 



DTFPR Macro 



The DTFPR macro (Figure 9) generates a DTF 
table containing all the necessary 
information to describe an output printer 
file on any of the following devices: 

• IBM 1403 Printer (with or without the 
SLI feature 

• IBM 1404 Printer (continuous forms 
only) 

• IBM 1443 Printer 

• IBM 1445 Printer 
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| Bytes 
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Bits j 


Contents 


j Function 

_L 




— T 




T 






r 


| 0-15 












|CCB. 


1 16 




0-1 
2 
3 
4 

5-7 








| COBOL open; ignore option. 

j Not used. 

|DTF table address constants 

| relocated by OPENR. 

|Not used. 


| 17-19 












| Address of logic module. 


| 20 






IX'08' 






|DTF type. 


| 21 





1 
2 
3 
4 
5 
6 
7 








jl = Open; = Closed. 

j First time switch. 

jl = Control character. 

jl = Fixed unblocked records. 

jl = Variable unblocked records. 

jl = 2 I/O areas. 

jl = Workarea. 

jl = Print overflow channel 9. 


| 22 






|X , 09 i 






j Normal command code. 


| 23 






|X f 09 f 






j Control command code. 


| 24-27 












(Address of IOAREA1. 


| 28-31 












j Bucket. A 


| 32-33 






|LR 12, 
|NOPR 


(RECSIZE) 


JFor undefined records only. 


| 34-37 






|LA SIOREG, 
|NOP 


4(14) 


|Only if IOREG=(r). 


| 38-39 












(Bucket 2. 2 


| 40-47 






|11,*,X 


•60' 


,1 


JCCW — Set up Selective Tape List Control. 


| 48-55 

i 


L- 




x 






|CCW — Print 

_: J 


r 














| ^-The bucket bytes handle undefined records. Bit of byte 28 at open 
I time determines the mode set of a printer with UCS. If bit is 1, 
| the mode is set so that data checks occur if an invalid character is 
| printed. Otherwise, mode is set to suppress data checks. The use of 
j the UCS parameter determines the setting of this bit. 


| 2 The : 


2 byte 


bucket saves 


print 


overflow conditions if CTLCHR=ASA. 



Figure 9. DTFPR 



PRMOD Macro 



The module generated by the PRMOD macro 
provides the logic to perform the cNTRL, 
PRTOV, and PUT functions for a printer 
file. The logic module handles only 



unblocked records, and supports fixed, 
undefined, and variable record formats. 

The PRMOD macro can generate many logic 
modules, each designed to handle the 
conditions specified by the macro 
parameters. Because it is not possible to 
describe all the variations, the PRMOD is 
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flowcharted to show the internal decisions 
made for the specified parameters, 

PRMOD: CNTRL Macro Chart FA 



Objective; To control the carriage space 
and skip operations. 

Entry: From a CNTRL macro expansion. 

Exit: To the next sequential instruction 
in the problem program following the CNTRL 
macro expansion. 

Method: This routine provides completely 
independent control of the printer 
carriage. It is used when the PRMOD macro 
parameter CTLCHR is not specified. 

The PRMOD CNTRL routine waits for a 
previous I/O operation to finish and then 
inserts the control character into the CCW 
command code. The required carriage 
operation is started and control returns to 
the problem program without waiting for 
completion of the carriage operation. 



PRMOD: PRT0V Macro Chart FB 



Objective: To cause and control an 
overflow skip. 

Entry: From a PRTOV macro expansion. 

Exit: To the user's carriage overflow 
routine if the address of the routine is 
supplied, or to the problem program at the 
next sequential instruction following the 
PRTOV macro expansion. 

Method: The PRTOV (printer overflow) macro 
instruction is used with a logical printer 
file to specify the operation to be 
performed on a carriage overflow condition. 

PRTOV requires two parameters. The 
first parameter must be the name of the 
logical file specified in the DTF header 
entry. The second parameter must specify 
the number of the carriage tape channel (9 
or 12) used to indicate the overflow 
condition. When an overflow condition 
occurs, IOCS skips the printer carriage to 
channel 1. 

An optional third parameter causes a 
branch to a user routine instead of a skip 
to channel 1 on an overflow condition. 
This parameter specifies the symbolic name 
representing the address of the user's 
routine. In the user's routine, any 
desired function can be performed except 
another PRTOV. 



PRMOD: PUT Macro Charts FC-FE 



Objective: To print a line and space, or 
to print a line and skip the appropriate 
tape, if the Selective Tape Lister feature 
is available. 

Entry: From a PUT macro expansion. 

Exits : To the problem program or cancel. 

Method: This routine causes a record to be 
printed on the output device. The logic 
determines if two I/O areas are used, if a 
workarea is specified, and if CTLCHR 
controls the carriage. A test is made to 
determine if CNTRL is specified. If so, 
the CTLCHR cannot be used, CTLCHR and CNTRL 
are mutually exclusive (if one is used, the 
other cannot be specified) . 

If the American Standard Association 
(ASA) CTLCHR is used, this routine 
translates it to System/360 language. 

If the Selective Tape Lister feature is 
used, selected tapes are controlled through 
the use of a one-byte control field. This 
field is accessed by the optional operand, 
either STLSP=label, or STLSK=label, of the 
PUT macro. Figure 10 shows the format of 
the field specified by label. 



r T T T T T T T T 1 

I Bit I 0|1 I 2| 3| 4|5 |6 | 7 | 
h + „X„X„X„X„X„X-_ + .| 

| Tape Positions! 8|7|6|5|U|3|2| 1 | 

j. J. X X X X X X X .| 

I Note: Tape 1 is the leftmost tape on the 
j Selective Tape Lister. | 

L J 

Figure 10. STL Control Field 



The control field is used as the data 
address in the control CCW in the DTF 
table. Double-width tapes are controlled 
by using the two bits corresponding to the 
tape positions occupied. 

Note : The label CONCMD used in this logic 
is a one byte save area in the DTF table 
used to store the control character. 
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PAPER-TAPE FILES 



Paper-Tape (PT) files are input files 
associated with 2671 paper-tape reader and 
defined by a DTFPT macro. A corresponding 
PTMOD macro supplies the data handling 
logic module which supports only fixed 
unblocked and undefined records. 



Paper-tape files are opened and closed 
by the Open and Close Monitors, 
respectively (refer to Volume 1). 



DTFPT Macro 



The DTFPT macro is capable of generating 
several different DTF tables depending on 



the parameters specified in the macro 
operand. The four basic table types are: 

• DTFPT: No Translation, No Shifts, or 
Deletes (Figure 11) 

• DTFPT: Translation, No Shifts or 
Deletes (Figure 12) 

• DTFPT: Translation, Shifts, and 
Deletes with Fixed Unblocked Records 
(Figure 13) 

• DTFPT: Translation, Shifts, and 
Deletes with Undefined Records (Figure 
14) 

Translation refers to code translation of 
paper tapes punched in other than EBCDIC 
code. Shifts refers to letter or figure 
shift required for 5-channel paper tape. 
Deletes refers to acceptance of delete 
characters punched in the tape. 
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r t- 

| Bytes | 

I- +- 



Contents 



I 
-+- 



Function 



0-15 
16 

17-19 

20 

21 



48-55 

56-63 
64-67 
68-71 



X'20" 

X'08 - 



X f 01 f 



22- 


-25 


MVI 26(1), X'07' 
NOP 0(0) 


26- 


-27 


SVC 


28- 


-29 


SVC 
NOPR 


30- 


-31 


LR SRECSIZE,14 
NOPR 


32- 


-35 


AUIOAREA2) 
AUIOAREA1) 


36- 


-39 


AUEOFADDR) 


40- 


-43 


AUERROPT) 

SR 0, 
SVC 6 
B 12(15) 
B 138(15) 


44- 


-47 


A U WLRERR) 

B 12(15) 
B 152(15) 

B 152(15) 



X , 02 , ,SIOAREA1,X'00' ,SBLKSIZE 
X'06 f , fclOAREA^X'OO^SBLKSlZE 



F'O* 

L SIOREG # 4 8(l) 



NOP 0(0) 



CCB (X'08 1 in byte 2) . 

COBOL open; ignore option. 
DTF table address constants 
relocated by OPENR. 

Address of logical module. 

DTF type. 

Bit Not used. 

1 Two I/O areas. 

2-5 Not used. 

6 Equipment check. 

7 Read error. 

NOP first SVC if 2 areas. 
If 1 area. 

Read a record. 

Read another record if 2 areas. 
If 1 area. 

Put record length in user's register. 
No RECSIZE entry. 

If 2 areas. 
If 1 area. 

End-of-file address. 

Address of user's error routine if 

ERROPT=name. 
ERROPT omitted. 

ERROPT=SKIP. 
ERROPT=IGNORE. 

Address of user's WLR routine if 

WLRERR=name. 
WLRERR omitted and ERROPT=SKIP. 
WLRERR and ERROPT both omitted, or 
WLRERR omitted and ERROPT=IGNORE. 
RECFORM=FIXUNB or omitted. 

CCW: if RECFORM=FIXUNB or omitted. 
CCW: if RECFORM=UNDEF. 

Duplicate CCW. 

Savearea for register 14. 

Put input area address into user's 
register. 

No IOREG entry. 



Figure 11. DTFPT. No Translation, No Shifts or Deletes 
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1 1 







"T 


| Bytes 

L 


Contents 


| Function 

_ 4. _ 


r 







T 


| 0-15 






| CCB (X f 08' in byte 2). 


1 16 


X'20 - 

x'os 1 




| DTF table address constants relocated 
j by OPENR. 


| 17-19 






j Address of logical module. 


| 20 


X'01 f 




| DTF type. 


1 21 






j Bit Not used. 

| 1 Two I/O areas. 

j 2-5 Not used. 

j 6 Equipment check. 

j 7 Read error. 


| 22-25 


MVI 26(1),X - 
NOP 0(0) 


07" 


| NOP first SVC if 2 areas. 
| If 1 area. 


| 26-27 


SVC 




| Read a record. 


| 28-29 


SVC 
NOPR 




| Read another record if 2 areas. 
| If 1 area. 


| 30-31 


LR SRECSIZE, 
NOPR 


14 


j put record length in user's register. 
j No RECSIZE entry. 


| 32-35 


AUIOAREA2) 
AUIOAREA1) 




j If 2 areas. 
| If 1 area. 


| 36-39 


A(SEOFADDR) 




| End-of-file address. 


| 40-43 


AUERROPT) 

SR 0, 
SVC 6 
B 12(15) 
B 138(15) 




j Address of user's error routine if 
j ERROPT=name. 
j ERROPT omitted. 

| ERROPT=SKIP. 
| ERROPT=IGNORE. 


| 44-47 


A(SWLRERR) 
B 12(15) 

B 182(15) 




| Address of user's WLR routine if 

j WLRERR=name. 

| WLRERR omitted and ERROPT=SKIP, .WLRERR 

| and ERROPT both omitted, or WLRERR 

j omitted and ERROPT=IGNORE. 

j RECFORM=FIXUNB or omitted. 


| 48-55 


X" 02" , SIOAREA1, X' 00 f , SBLKSIZE 
X* 06 ■ , SIOAREA1, X' 00 ' , SBLKSIZE 


| CCW: if RECFORM=FIXUNB or omitted, 
j If RECFORM=UNDEF. 


| 56-63 






| Duplicate CCW. 


| 64-67 


AUTRANS) 




| Address of user f s translate table. 


| 68-71 


| L SIOREG,32(l) 
NOP 0(0) 


j Put input area address into user's 

j register. 

| No RECSIZE entry. 


| 72-75 


I LH SRECSIZE, 
| NOP 0(0) 


30(1) 


| Put record length into user's register, 
j No IOREG entry. 



L X ; i. J 



Figure 12. DTFPT. Translation, No Shifts or Deletes 
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r ? 


r ^ 


r 


j Bytes 

L 


Contents | 

j 


Function 


r — 


i 




| 0-15 




CCB (X'OO' in byte 2). 


16 


X'20 f 

X'08' | 


COBOL open; ignore option. 

DTF table address constants relocated 

by OPENR. 


| 17-19 




Address of logical module. 


| 20 


X"01* 


DTF type. 


1 21 




Bit Not used. 

1 Two I/O areas. 
2-6 Not used. 
7 EOF indicator. 


} 22-25 


MVI 26(l) f X•07 , ' 
NOP 0(0) 


NOP first SVC if 2 areas. 
If 1 area. 


j 26-27 


SVC 


Read a record. 


| 28-29 


SVC 
NOPR 


Read another record if 2 areas. 
If 1 area. 


| 30-31 


H , i 


Record length field. 


| 32 


C , 02' 




| 33-35 


AL3UIOAREA2) 
AL3UIOAREA1) 


If 2 areas. 
If 1 area. 


| 36-39 


AUEOFADDR) 


End-of-file routine address. 


| 40-43 


A(0) 




| 44-47 


NOP 




| 48-55 


X , 02 , f gIOAREAl # X , 00 f , SOVBLKSZ 
X , 02 , ,SIOAREAl,X f 00 , ,£BLKSIZE 


CCW: if OVBLKSZ specified. 
If OVBLKSZ not specified. 


| 56-59 


| L SIOREG,96(l) 
NOP 0(0) 


Put input area address into user's 

register. 
No IOREG entry. 


| 60-63 


LH SRECSIZE 30(1) 
NOP 0(0) 


Put record length into user's register. 
No RECSIZE entry. 


| 64 


X'02 € 




| 65—67 


! AL3UIOAREA1) 


Address of current input area. 


| 68-71 


A(0) 


Address of remainder in input area. 


| 72-75 


| F^O* 


Length of remainder. 


| 76-79 


A(SFTRANS) 


Address of figure shift table. 



Figure 13. DTFPT- Translation, 
1 of 2) 



Shifts and Deletes, With Fixed Unblocked Records (Part 
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r 


"V" 




T . 


| Bytes 
i 


1 


Contents 


j Function 

- 4. 


r- 


1 




T 


| 80-83 




AULTRANS) 


| Address of letter shift table. 


| 84-87 




AUTRANS) 

AUFTRANS) 

A(0) 


| If LTRANS S FTRANS not specified. 
| Address of current translate table. 
j If no translation is specified. 


| 88-91 




AUSCAN) 


| Address of scan table. 


| 92-95 




F'SBLKSIZE' 


j Required record length. 


| 96-103 






j Duplicate CCW. 


|104-109 




TR 0(0, 4), 0(5) 

TM 0,0 
NOPR 


| If TRANS, LTRANS or FTRANS specified, 
j If no translation specified. 



L 



J. - JL 



. J 



Figure 13. DTFPT. Translation, Shifts, and Deletes, with Fixed Unblocked Records (Part 
2 of 2) 
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r 








r 


I Bytes 

L 


Contents 




Function 

— _ — — — — — _ 


r 









| 0-15 






CCB (X'08' in byte 2). 


1 16 


X'20' 
X f 08 f 




COBOL open; ignore option. 

DTF table address constants relocated 

by OPENR. 


| 17-19 






Address of logical module. 


| 20 


X'01 f 




DTF type. 


1 21 






Bit Not used. 

1 Two I/O areas. 
2-5 Not used. 

6 Equipment check. 

7 Read error. 


| 22-25 


MVI 26(1), X" 
NOP 0(0) 


07" 


NOP first SVC if 2 areas. 
If 1 area. 


| 26-27 


SVC 




Read a record. 


| 28-29 


SVC 
NOPR 




Read another record if 2 areas. 
If 1 area. 


| 30-31 


H'O' 




Record length field. 


| 32-35 


AUIOAREA2) 
AUIOAREAl) 




If 2 areas. 
If 1 area. 


| 36-39 


AUEOFADDR) 




End of file routine address. 


| 40-43 


AUERROPT) 

SR 0,0 
SVC 6 
B 16(15) 
B 246(15) 




Address of user's routine if 

ERROPT=name. 
ERROPT omitted. 

ERROPT=SKIP. 
ERROPT=IGNORE. 


| 44-47 


AUWLRERR) 

B 16(15) 
B 260(15) 




Address of user's WLR routine if 

WLRERR=name. 
WLRERR omitted and ERROPT=SKIP. 
WLRERR omitted and ERROPT=IGNORE 

omitted. 


| 48-51 


L SIOREG,32(l) 
NOP 0(0) 


Put input area address into user's 

register. 
No IOREG entry. 


| 52-55 


LH SRECSIZE, 
NOP 0(0) 


30(1) 


Put record length into user's register. 
No IOREG entry . 


| 56-59 


AUFTRANS) 




Address of figure shift table. 


| 60-63 


A(LTRANS) 




Address of letter shift table. 


| 64-67 


AUFTRANS) 

AUTRANS) 

A(0) 




Address of current translate table. 
If LTRANS and FTRANS not specified. 
If no translation specified. 



I X X 



J 



Figure 14. DTFPT Translation, 
(Part 1 of 2) 



Shifts, and Deletes, with Undefined Records 
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T 



I— 



Bytes 


I 


Contents 


j Function 

4- — - 




1 




T 


68-71 




AUSCAN) 


| Address of scan table. 


72-79 






| Duplicate CCW. 


80-87 




X'06 - ,£IOAREAl, X'00' SBLKSIZE 


| CCW. 


88-93 




TR 0(0, 4), 0(5) 

TM 0,0 
NOPR 


| If TRANS f LTRANS or FTRANS specified. 
j If no translation specified. 



L JL - 



X J 



Figure 14. Translation, Shift, and Deletes, with Undefined Records 
(Part 2 of 2) 



PTMOD Macro 



The PTMOD macro can generate four logic 
modules providing the GET function for 
paper-tape files. The particular module 
generated depends on TRANS= and SCAN= macro 
parameters. The TRANS= parameter specifies 
whether or not the generated module 
contains the logic needed to translate 
nonshifted punched paper-tape characters 
into EBCDIC code. The SCAN= parameter 
specifies whether or not the generated 
module contains the logic to handle records 
containing 5-channel shift characters or 
delete characters. 



All modules support the use of either 1 
or 2 I/O areas. Decision blocks are 
included in the flowcharts to indicate the 
procedure followed for both 1 and 2 I/O 
areas. 



PTMODj GET Ma cro, No Translation C hart GA 



Objective : To read a record from paper 
tape punched in EBCDIC code. 



Entry : From a GET macro expansion. 



Exit : To the problem program, or to the 
user's EOF routine. 



Met hod: To support the use of either 1 or 
2 I/O areas, the GET routine makes use of 
three key instructions contained in the DTF 
table. The three instructions, repeated 
here for convenience, are: 



■t T~ 

I 1 Input j 
j Area | 



2 Input Areas 



i. + + .| 

i 

IIJE1MOVE | NOP j MVI IJElSVCl, X' 07 ' 

| (NOP first SVC 
| instruction) 

I 
| IJElSVCl | SVC | SVC (first) 

I 
IIJE1SVC2 | NOPR | SVC (second) 

-X X- 



L 



J 



If only one I/O area is specified for 
the file, the GET routine uses the 'first' 
SVC instruction to read a record from the 
paper-tape device. After the complete 
record has been read into the I/O area, the 
I/O area address in the CCW and the I/O 
area address in the DTF table are 
exchanged. (In this case, the exchange is 
meaningless because both addresses are the 
same when only one I/O area is used.) The 
record is then checked for errors and 
control is returned to the problem program. 

If two I/O areas are specified for the 
file, the GET routine uses the 'first' SVC 
instruction to read the first record 
only . After the first record is read, the 
first SVC instruction is made a NOP by 
the execution of the instruction contained 
in the DTF table at the label IJE1MOVE. 
The first SVC instruction is only 
restored if it is needed to handle error 
conditions. After checking for I/O 
complete and reading a complete record into 
the I/O area, the addresses of the two I/O 
areas are exchanged, and the record is 
checked for errors. The GET routine then 
NOPs the first SVC instruction and uses 
the 'second' SVC instruction to read the 
next record. From this point on, only the 
second SVC instruction is used 
exclusively, except for handling error 
condition. The GET routine returns control 
to the problem program without waiting for 
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completion of the I/O operation started by 
the second SVC instruction. 



PTMODi GET Macro, Translation of Shifted 

Code Chart GB 



This GET routine functions the same as the 
GET routine for no translation. It differs 
only in the logic included to accomplish 
the required translation once a complete 
record has been read into the I/O area. 



produce a fixed-length record of 50 
characters (BLKSIZE). However, because 
excessive delete characters are 
encountered, the record contains only 4 5 
characters. To reduce the number of 
physical I/O operations, a second group of 
2 5 punched tape characters is read to 
ensure that the 5 characters needed to fill 
the original record are obtained. On the 
next GET, the remaining characters (if any) 
from the second group of punched-tape 
characters are moved into the leftmost 
positions of the input area. The byte 
count and the data address in the CCW are 
modified accordingly before the next SVC 
is issued. 



PTMOD; GE T Ma cro, Translation, Shifted 
Code, Fixed Unblocked Recor ds Charts GC-GD 



The basic module is the same as the GET 
with Translation of Shifted Code except for 
the method of obtaining the correct number 
of bytes to complete the fixed- length 
record. Because the number of control 
characters scattered throughout the tape 
record is unpredictable, a routine is 
included to ensure that the correct number 
of valid characters is included. The user 
specifies the number of characters to be 
read in (OVBLKSZ) to produce a specified 
number of bytes (BLKSIZE) after the control 
characters have been deleted. 

For example: a group of 70 punched-tape 
characters (OVBLKSZ) are to be read to 



PTMOD ; GET Macro, Translation and Shifted 

Code for Undefined Records Charts GE-GF 



This GET routine for undefined records 
functions in much the same manner as the 
GET routine for fixed-length records. The 
routine differs in the use of two translate 
tables; one table is required for letter 
shift, and the other for figure shift. 



Shift characters and delete characters 
contained in the punched paper tape are 
removed from the record as translation 
takes place. The record in main storage is 
thereby compressed and left- justified. 
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MAGNETIC TAPE FILES 



DTFMT MACRO 



Magnetic Tape (MT) files are associated 
with IBM 2400 series magnetic tape drives 
and are defined for logical IOCS by a DTFMT 
macro. Files so defined can be either 
input or output data files, or work files. 
The function of a particular file is 
determined, by the user, in the 
TYPEFLE= parameter in the operand of the 
DTFMT macro. 

Magnetic tape files can also be defined 
for physical IOCS if the user intends to 
use physical IOCS macros such as EXCP, 
WAIT, etc. These files are defined by a 
DTFPH macro. 

In addition, magnetic tape system files 
can be defined by the device independent 
macros, DTFDI and DTFCP. These files are 
described under Device Independent Files 
later in this manual. 



DATA FILES 

The DTFMT macro used to define magnetic 
tape data files can generate three basic 
DTF tables, one for each of the following 
record types: 

• Fixed length 

• Variable length 

• Undefined 

The three basic DTF tables have been 
combined into a single DTFMT table, Figure 
15, in this publication. The values 
included in the table for a specified 
record type are noted. 



The data handling logic modules for 
files defined for logical IOCS by the DTFMT 
macro are provided by the associated MTMOD 
macro. 

Magnetic tape files are opened and 
clos-ed by logical transient routines 
fetched by the Open and Close monitors 
respectively (refer to Volume 1). The open 
routines provide procedures for checking 
each file before any records are processed. 
The close routines provide procedures to 
terminate the use of each file after all 
records are processed. 



WORKFILES 



Figure 16 illustrates the DTF table that is 
generated when the TYPEFLE=WORK parameter 
is specified by the user in the operand of 
a DTFMT macro. 



DTFPH MACRO (MAGNETIC TAPE) 



Figure 17 is generated by the DTFPH macro 
when the parameter DEVICE=TAPE is specified 
in the macro operand. The table contains 
the information necessary to define a 
magnetic tape file for physical IOCS. 
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-T T — 




T T 


j Bytes 
L 


| Bits | 

i L 


j j Record 2 
Contents 1 j Function (Length 

J_ _L 


r 


T T — 




t r 


| 0-15 






|CCB. | 


1 16 


1 o-i 1 




j Not used. j 




1 2 | 
1 3 | 

1 <* 1 

1 5-7 | 




j COBOL open; ignore option. j 
(Not used. j 
| DTF table address constants j 
| relocated by OPENR. j 
j Not used. | 


| 17-19 






j Address of logic module. j 


| 20 


1 l x * 


11* 


(Nonstandard or unlabeled. j 




1 |x" 


12 f 


| Standard labeled, output. j 




1 |x J 


13' 


(Standard labeled, input, backwards. j 




1 |x« 


14 f 


j Standard labeled, input, forwards, j 


1 21 


1 o | 




(First time switch. j 




1 1 1 




(1 = blocked. j 
(0 = unblocked. j 




1 2 | 




| 1 = 2 I/O areas. | 
(0=1 I/O area . j 




1 3 | 




jl = workarea, j 
j = no workarea. j 




1 4 1 




jl = input, | 
| = output j 




1 5 1 




jl = backwards. j 
JO = forwards. j 




1 ^ | 




jl = checkpoint. j 
j = no checkpoint. j 




1 7 | 




(1 = TRUNC required during Close. j 


| 22-29 






j Symbolic filename. j 


| 30 






(Same as OP code in CCW. | 
| (X'Ol", X , 02 f , or X'Oc'). | 



X X JL X J 



Figure 15. DTFMT: Data Files (Part 1 of 8) 
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T T 

Bit 



-T 1 

| Record 2 
j Length 



Bytes 



Contents 1 



Function 



H 



31 



32 



0-4 



B"01110" 
B" 01100* 
B"1000l" 
B" 01111" 
B" 01101" 
B" 01011" 



(Not used in Versions 1 and 2) 

Bits 0-4 are used as displacements 
by OPEN to determine the location 
of variable fields of the DTF. 

Input. | F 

Output . | F 

Input. j V 

Output. | V 

Input. j U 

Output. I U 

1 = Tape label information 

included in DTF (see bytes 
88-95). 

= Tape label information not 

included in DTF. 

Used by COBOL. 

1 = Header label and EOV 

information wanted. 

= No header label and EOV 

information wanted. 

Standard labels: 

1 = yes, = no. 



Labels: 1 = nonstandard, 

= unlabeled. 

Rewind unload: 

1 = yes, = no. 

Rewind option: 

1 = no rewind, = rewind. 

Drive direction: 

1 = backwards „ = forward. 

User label address: 
1 = yes, = no. 

Tapemark option: 1 = no, = yes. 

E0F-E0V switch (used by IBM 
SORT): 1 = yes, = no. 



Figure 15. DTFMT: Data Files (Part 2 of 8) 
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Bytes 
33-35 


"T T 

| Bits) 
-+ +— 




Contents 1 


T ; 1 

j Function 
+ 

|User label routine address. 


r 1 

Record 2 | 
j Length j 

r ^ 




36 


1 o 

1 1 
1 2 
| 3 

1 4 

1 5 

1 ^ 
1 7 








(DTFPH: 1 = yes, = no. 

(COBOL indicator: 1 = yes, 
|0 = no. 

|File type: 1 = input, 
|0 = output. 

|FEOV switch: 1 = yes, 
JO = no. 

(EOF-EOV switch (output): 
jl = EOF, = EOV. 

|0pen indicator: 1 = open, 
JO = closed. 

jl = variable records. 

jl = undefined records. 






37-39 










JEOF address. 






40-43 










(Block count. 






44-47* 




|BXH ll f 12, 24(15) 


(Forward. 


1 F 1 








|BXLE 11.12,24(14) 


j Backward. 


1 F 1 








|L 


6VARBLD, DEBLOCKER 




1 v 1 








|DC 


F'O* 






1 u 1 




48-51 




|L2 


i 14,1(14) 




|F,V | 








|BCTR 14,0+NOPRO 


j Backward. 


|F,V | 








|L 


SRECSIZE, DEBLOCKER1 


| If RECSIZE given. 


1 u 1 








|NOP 0(0) 




(For input if not NOP. 


1 u 1 




52-55 




|L 


SIOREG, 


DEBLOCKER1 


(If IOREG specified. 


|F,V | 








|L 


£ IOREG, 


DEBLOCKER2 


(If IOREG specified. 


1 u 1 








|NOP 0(0) 




(If no IOREG. 






56-63 










(CCW. 





I J. 



-X 



X ± 



Figure 15: DTFMT: Data Files (Part 3 of 8) 
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r 


~T~ 


T 






_ T n 





| Bytes 
L 


L. 


Bits | 
i 


Contents 1 




| Function 

_± 


Record 2 
Length 




| 64-67 


— r 


r 

JDC 


A(IOAREAl) 




T 

| One I/O area. 








|DC 


A ( IOAREA1+BLKSIZE- 


-1) 


j One I/O area, read backward 








|DC 


A(IOAREA2) 




(Two I/O areas. 








|DC 


A ( IOAREA2+BLKSIZE- 


-1) 


j Two I/O areas read backward 




| 68-71 




|DC 


F^' 




| Input. 


F 






|DC 


ACCOAREAl+BLOCKSIZE 
-RECSIZE) 


(Input backward: DEBL0CKER1. 


F 






|DC 


A(IOAREAl) 




|1 I/O area, output: 
JDEBLOCKERl. 


F 






|DC 


A (10 AREA 2) 




|2 I/O areas, output: 
(DEBLOCKERl. 


F 






|DC 


F'BLKSIZE' 




|DEBL0CKER2. 


V 






|DC 


A(IOAREAl) 




|1 I/O area: DEBL0CKER2. 


U 






|DC 


A (10 AREA 2) 




|2 I/O areas: DEBL0CKER2. 


U 


| 72-75 




|DC 


F' RECSIZE' 




| Forward : DEBL0CKER2 . 


F 






|DC 


F* -RECSIZE 1 




| Backward: DEBL0CKER2. 


F 






|DC 


A(IOAREAl) 




|1 I/O area: DEBL0CKER3. 


V 






|DC 


A(I0AREA2) 




|2 I/O areas: DEBL0CKER3. 


V 






|LA 


14,1(14) 




(Forward. 


U 






|BCTR 14,0+NOPRO 




(Backward. 


U 


| 76-79 




|DC 


F'Q* 




(Input. 


F 






|DC 


A ( I0AREA1+BLKSIZE 
-RECSIZE) 




(Input backwards: DEBL0CKER3. 


F 






|DC 


A(I0AREA1+BLKSIZE- 


-1) 


j Output, 1 I/O area: 
(DEBL0CKER3. 


F 






|DC 


A(I0AREA2BLKSIZE-1) 


| Output, 2 I/O areas: 
(DEBL0CKER3. 


F 






|DC 


F^O' 




|DEBL0CKER4. 


V 






|DC 


Y(BLKSIZE)+Y(BLKSIZE-1) 


j (Versions 1 and 2 only) 


u 






|DC 


Y(BLKSIZE) 




| (Bytes 76-77 only) 


u 






|DC 


Y(BLKSIZE-l) 




| (Bytes 78-79 only) 


i u 



X JL 



J. J. J 



Figure 15. DTFMT: Data Files (Part 4 of 8) 
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r 

| Bytes 
1- 


-I" 


T 

Bits | Contents* 
+ 


"T ' 1 

| Function 
_ + 


r 1 

Record 2 | 
Length j 

1 


| 80-83 




|DC Y(BLKSIZE) 


+Y(BLKSIZE-1) 


j Forward, 


F | 






|DC S(BLKSIZE)+Y(BLKSIZE+1) 


| Backward. 


F 1 






|DC F'O* 




|DEBLOCKER5. 


V | 






|LR 12,RECSIZE 




| (Bytes 80-81 only.) 


U | 






|DC H" f 




| (Bytes 82-83 if Input- 
| Versions 1 and 2 only.) 


v 1 






|DC H f 1 




| (Bytes 82-83.) 


U | 


| 84-87 




|DC Y(RECSIZE- 


1) 


| (Bytes 84-85.) 


F | 






|DC H f 0" 




| (Bytes 86-87 if Input- 
| Versions 1 and 2 only.) 


F 1 






|DC H" 0" 




| (Bytes 86-87) Output, 
(standard labels. 


F | 






|DC A(I0AREA1+ 


4) 


|1 I/O area: DEBLOCKER1. 


V | 






|DC A(IOAREA2+ 


4) 


|2 I/O areas: DEBLOCKER1. 


V | 






|DC 2X f 00 f 




| (Bytes 84-85 output only) 

(Reserved for OPEN in 

| Versions 2.1 and 3 only. 


U | 






|B 24(15) 




| Input only, ERROPT omitted. 


U | 






|B 24(15) 




| Input only, ERROPT=SKIP. 


U | 






|B 28(15) 




(Input only, ERROPT=IGNORE. 


U | 


h 

| 88-91 


-+" 


|DC A(ERROPT) 

+ 

|DC A (WLRERR) 

|B 24(15) 
|B 28(15) 

|DC 2X f 00 f 




| (Versions 1 and 2 Input 
(only if ERROPT= ADDRESS . ) 

_ + ^ 

(Input only WLRERR= ADDRESS . 

(Input only, WLRERR omitted 
jand ERROPT=SKIP. 

(Input only, WLRERR omitted 
jand ERROPT=IGNORE or 
j omitted. 

(Versions 2.1 and 3 

| Output only, standard labels 

| (bytes 88-89), reserved for 

(OPEN. 


-1 

For | 
Fixed | 
Length | 
Records j 
Only | 


| 90-95 




|File Serial Number 


j Standard labels , output 
jonly (Versions 2.1 and 3). 





Figure 15. DTFMT: Data Files (Part 5 of 8) 
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r t- 

1 Bytes | 

L X- 


T 

1 

Bitsj 
- j. 


Contents 1 


T 

1 

| Function 
X 


t 1 

(Record 2 | 
( Length | 
X 4 


r t 

| 92-95 | 

L X 


T 

1 

|DC 
IB 
IB 
IB 

X 


A(ERROPT) 
24(15) 
24(15) 
28(15) 


T 

1 

(Input only, ERROPT=ADDRESS. 

(Input only, ERROPT omitted. 

| Input only, ERROPT=SKIP. 

(Input only, ERROPT=IGNORE. 

x 


T 1 
(For | 
| Fixed j 
(Length j 
(Records | 
| Only j 
J l 


r 

| End of Version 1 


and Version 2 DTFMT 


table for fixed length records. 


1 I 
4 I 


r t 


T 




T "" 


1 I 


| 96-103 | 


j Volume Sequence Number 


(Standard labels, output 
(only (bytes 96-99). 






|DC 


2X , 00 i 


(Standard labels, input 
(only (bytes 96-97), reserved 
j for OPEN. 






|File Serial Number 


(Standard labels, input 
jonly, (bytes 98-103). 






|File Sequence Number 


| Standard labels, output 
(only, (bytes 100-103). 




| 104-107J 


(Volume Sequence Number 


(Standard labels, input only. 




| 108-1111 
(. x. 

| 88-91 | 
| 92-95 | 


(File Sequence Number 
+ 

|DC F"0' 

|DC Y (BLKSIZE)+ 
| Y (BLKSIZE-1) 
(DC Y(BLKSIZE-4)+ 
j YY (BLKSIZE-1) 


(Standard label, input only. 

X 

JDEBLOCKER6. 

j Input, Versions 1 and 2. 
j Output, Versions 1 and 2. 


— x ^ 

(For | 
j Vari- j 
j able j 
j Length j 
j Only | 


| 92-93 | 


|DC 


Y(BLKSIZE) 


j Input only. 






|DC 


Y(BLKSIZE-4) 


j Output only. 




| 94-95 | 


|DC 


Y(BLKSIZE-l) 






| 96-97 | 


|DC 


Y(RECSIZE-l) 






| 98-99 | 


|DC 


H'0 f 






| 100-103| 


|DC 


A (WLRERR) 


| Input only, WLRERR= ADDRESS . 






l B 


24(15) 


| Input only, WLRERR omitted 
jand ERROPT=SKIP. 






|B 


32(15) 


(Input only, WLRERR omitted 
jand ERROPT=IGNORE or 
j omitted. 






|DC 


2X f 00 f 


| Versions 2.1 and 3 Output 

(only, standard labels, 

| (bytes 100-101) reserved for 





I 

-X- 



-X 



I 

-X- 



Figure 15. DTFMT: Data Files (Part 6 of 8) 
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I I 

Bytes | Bits | 
+ +- 



Contents 3 



Function 



T 1 

Record 2 
Length 



H 



102-107| 
I 
I 

104-108| 



| File Serial Number 
I 

I 

j DC A(ERROPT) 
|B 24(15) 
|B 24(15) 
|B 28(15) 



h 

End of Version 1 and Version 2 DTFMT 

I" T T" 



| Standard labels, output only 
| (Versions 2.1 and 3). 

I 

j Input only, ERROPT=ADDRESS. 

| Input only, ERROPT omitted. 

| Input only, ERROPT=SKIP. 

j Input only, ERROPT=IGNORE. 



108-1111 

I 
112-115J 

I 
112-1131 

I 

I 

114-1191 

I 
120-123J 

I 
124-127| 



Volume Sequence Number 
File Sequence Number 
DC 2X , 00" 

File Serial Number 
Volume Sequence Number 
File Sequence Number 



Version 1 and Version 2 DTFMT tables 

| T T 

86-91 | | File Serial Number 

I I 

I I 

88-91 j JDC A (WLRERR) 

| |B 21(15) 

I I 

I I 

| |B 28(15) 

I I 



table for variable length records. 

Standard labels, output only. 

Standard labels, output only. 

Standard labels, input only, 
reserved for OPEN. 

Standard labels, input only. 

Standard labels, input only. 

Standard labels, input only. 



For 
Vari- 
able 
Length 
Only 



for undefined records end at byte 87. 

T 

| Standard labels, output only. 



Input only, WLRERR=ADDRESS 
Input only, WLRERR omitted 
and ERROPT=SKIP. 

Input only, WLRERR omitted 
and ERROPT=IGNORE or 
omitted. 



For Un- 
defined 
Records 
Only 



Figure 15. DTFMT: Data Files (Part 7 of 8) 
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Bytes 



Bits 



Contents 1 



Function 



T 1 

Record 2 
Length 



H 



92-95 



94-99 



104-107 



Volume Sequence Number 
DC 2X"00 f 

File Serial Number 
File Sequence Number 

File Sequence Number 



(Standard labels , output only. 

I 

| Standard labels, input only (bytes 
| 92-93), reserved for OPEN. 

I 

| Standard labels, input only. 

i 

| Standard labels, output only 
| (Bytes 96-99). 

I 

| Standard label, input only. 

-X 



For Un- 
defined 
Records 
Only 



*-The format of the tape data file DTF table is different starting at byte 44. The 
location indicated by the numbers in the left hand column can contain only one of 
the factors listed under Contents. The factor used for any given DTF table is 
determined by whether the file record format is fixed, variable, or undefined, and 
by other DTF parameters as indicated. A blank in the record column indicates that 
the contents apply to all record types. 

2 Record Length Explanation 
F = Fixed Record 
V = Variable 
U = Undefined 

The deblockers are scratch areas used by the modules to save data from one GET/PUT 
macro instruction to another. In the text and listings, they are referred to by 
names DEBLOCKER1 to 6. These are not labels; they are comments used to make it 
easier to follow in the listings. 



Figure 15. 



DTFMT: 



Data Files (Part 8 of 8) 
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r t 

Bytes 



h 



Bits 



Function 



0-15 
16 



17-19 

20 

21 



22-23 

24-25 

26-27 

28 

29-31 

32-39 

40-43 

44 



0-1 

2 

3 

4 
5-7 




1 
2 
3 
4 
5 
6 
7 




1 
2 
3 

4-7 



45-47 



CCB. 

Not used. 

COBOL open; ignore option. 

Not used. 

DTF table address constants relocated by OPENR. 

Not used. 

Address of logic module. 

DTF type = X f 10 f . 

1 = no rewind. 

1 = rewind unload. 

1 = workfile. 

1 = read backward. 

1 = write. 

1 = POINTW. 

1 = force checking of read or write. 

1 = forward-space file before next operation. 

Not used. 

Record length. 

Maximum BLKSIZE. 

Read Op code (X*02' for read forward, X'OC" for read backward). 

EOF address. 

CCW. 

Block count, initialized 00000000 for read forward, 00400000 for 
read backward. 

1 = error routine. 

1 = ignore. 

1 = read next record switch. 

1 = record fixed unblocked. 

Not used. 

DC A(ERROPT) Address of error routine. 



Figure 16. DTFMT: Workfiles 
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r t t 

| Bytes | Bits (Contents 



| Function 



0-15 
16 



17-19 
20 

21 

22-29 

30 

31 



32 



33-35 
36 



0-1 
2 
3 
4 



5-7 



0-3 

4 
5-7 



0-4 
5 



6-7 


1-2 
3 
4 
5 

6-7 




1 
2 

3 
4 

5-7 



3X , 00" 

X'12 f 

X , 14 i 



B s 01100" 



CCB. 

Not used, 

COBOL open; ignore option. 

Not used, 

DTF table address 

constants relocated by 

OPENR. 

Not used. 



Standard labeled, output 

Standard labeled, input, forward. 

Not used. 

1 = input, = output 

Not used. 

Symbolic filename. 

Not used. 

Used as displacement by OPEN. 
1 = Not Version 1 or 2 
type table. 

= Version 1 or 2 

type table. 

Reserved. 

1 = standard labels. 
Not used. 

1 = no rewind. 
Not used. 

User label address: 
1 = yes, = no 
Not used. 

User label routine address. 

1 = DTFPH table. 

Not used. 

File switch: 1 = input, 

= output. 
Not used. 

1 = EOF switch. 

Not used. 



Figure 17. DTFPH: Magnetic Tape (Part 1 of 2) 
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r t t 

| Bytes | Bits (Contents 



I Function 



I 
37-39 | 

I 
I 

40-43 j 

I 



DC F" 0' 



juser label exit (not used in 
| Versions 1 and 2) 

I 

| Reserved for OPEN (not used 

j in Versions 1 and 2). 



End of table if Version 1 or 2. 



44-87 | 

I 
88-89 j 

I 
90-95 | 

I 
96-99 | 

I 
100-103 | 
J.- 



DC 2X'00 - 

File Serial number 
Volume Sequence number 
File Sequence number 



EOV Routine 
Reserved for OPEN 



Figure 17. DTFPH: Magnetic Tape (Part 2 of 2) 



MTMOD MACRO 



The MTMOD macro provides the logic modules 
required to process both magnetic tape data 
files and workfiles. In all, four distinct 
modules can be generated; three for data 
files with various record formats, and one 
for workfiles. These modules supply the 
logic necessary to support all the logical 
IOCS imperative macros used with magnetic 
tape files. 

Because some of the LIOCS imperative 
macros are used with both data files and 
workfiles and some are used only with one 
file type, the magnetic tape modules have 
been combined and flowcharted to illustrate 
the functions of the individual imperative 
macros. 



Note: The last two imperative macros are 
not used with undefined records. 



DATA FILES 

A separate logic module is generated by the 
MTMOD macro for data files containing 
records in each of the following formats: 

1. Fixed, blocked and unblocked. 

2. Variable, blocked and unblocked. 

3. Undefined. 

These modules provide the logic to perform 
the functions of the LIOCS imperative 
macros CNTRL, GET, PUT, RELSE, and TRUNC. 



WORKFILES 



The workfile module is generated by the 
MTMOD macro, when TYPEFLE=WORK is 
specified, to allow a tape drive to be used 
for both input and output in one program. 
Although usually considered as an output 
file first, the function of a workfile can 
be switched at any time, thereby allowing 
records to be written on or read from the 
same file. 

The logic of the workfile module uses 
the imperative macros READ and WRITE, 
instead of the GET and PUT used by data 
files, to transfer records between the 
device and main storage. The workfile 
module also differs from the data file 
modules in that neither blocked records nor 
switching of I/O areas is supported. 

In addition to the READ and WRITE 
imperative macros, the workfile module 
supports the NOTE, POINTS, POINTR, POINTW, 
and CHECK imperative macros. CHECK must 
always be issued after a READ or WRITE if 
the user wishes to ensure completion of the 
operation before issuing another 
instruction. NOTE is used with the POINTR 
and POINTW macros to position the tape to a 
predetermined record. The POINTS macro 
instruction repositions the tape at the 
beginning of a» file and sets an indicator 
which causes the tape to be spaced over any 
tapemark or header labels when the next 
READ or WRITE macro is issued. 
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MTMOD: 



CHECK Macro, Workfile Chart HA 



MTMOD: CNTRL Workfile Chart HC 



Objective: To ensure that a previously 
issued READ or WRITE macro has been 
satisfactorily completed. 



Objective: To perform a nondata physical 
operation. 

Entry: From a CNTRL macro expansion to the 
label IJFWCTL. 



Entry: From a CHECK macro expansion to the 
label IJFWCHEK. 



Exits: To the problem program, or to the 
user's EOF or ERROPT routine. 

Method: This macro instruction waits for 
the completion of the input/output 
operation started by a READ or WRITE macro 
instruction. If the I/O operation is 
completed without detecting an error or an 
exceptional condition, CHECK returns 
control to the next sequential instruction 
following the CHECK macro expansion in the 
problem program. If the operation results 
in a read error, CHECK processes the user's 
option specified in the ERROPT entry of the 
DFT. If CHECK finds an end-of-file 
condition, control passes to the user's 
end-of-file routines. 



Exit: To the problem program. 

Method: This routine is for nondata 
operations on the file. For magnetic tape 
these operations are: backspace, forward 
space, rewind, write a tapemark, etc. 

The routine puts the control operation 
code in the CCW, causes the control 
function to be performed, waits for the I/O 
operation to finish, and return control to 
the problem program. 



MTMOD: FEOV Macro Chart HD 



Objective: To cause an EOV to occur before 
a true EOV condition is reached. 



MTMOD : 



CNTRL Macro Chart HB 



Objective: To execute a nondata physical 
operation on the file. 

Entry: From a CNTRL macro expansion to the 
label: 

IJFFCNT for files containing 

fixed-length records. 

IJFUCNT for files containing undefined 
records. 

IJFVCNT for files containing 
variable-length records. 

Exit: To the problem program. 

Method : The CNTRL macro is available to 
the user for nondata operations on the 
file. For a magnetic tape file, these 
operations are: backspace, write a 
tapemark, forward space file, etc. 

The control routine first checks to 
ensure that any previous I/O operation has 
been completed. Then the routine sets the 
control operation code in the CCW, and 
causes the control function to be 
performed. The orginal operation code is 
restored in the CCW, and, when I/O complete 
is indicated, the routine returns to the 
problem program. 



Entry: From an FEOV macro expansion to the 
label: 

IJFFFEO for files containing fixed 

length records. 

IJFUFEO for files containing undefined 
records. 

IJFVFEO for files containing variable 
length record. 

Exit: To the problem program. 



Method: 



The FEOV macro causes an end of 



volume condition to occur before the 
physical end of volume is reached. On an 
input file, the trailer labels are not 
checked and the user specified rewind 
option is executed. For an output file, if 
standard labels are specified, a trailer 
label is created, and the user rewind 
option is executed. 

This routine sets the FEOV switch on in 
the DTF table and calls $$BCE0V1 to close 
the file and execute the user specified 
rewind option. If no rewind option is 
specified, a message is issued indicating 
the tape should be rewound and unloaded. 



MTMOD: 



GET Macro Charts HE-HG 



Objective: To access a logical record from 
a magnetic tape data file. 
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Entry: From a GET macro expansion to the 
label: 

IJFFGET for files containing 
fixed- length records. 

IJFUGET for files containing undefined 
records. 

IJFVGET for files containing 
variable-length records. 

Exit: To the problem program or to the EOF 
address. 

Method: The GET routine accesses the next 
sequential logical record in a magnetic 
tape data file. The record is moved from 
the I/O area to the workarea if WORKA=YES 
is specified in the DTF. Otherwise, the 
record is available in the I/O area. 
Overlap occurs if two I/O areas are 
specified. 

The routine performs deblocking, if 
required (for variable-length records, the 
user specified blocksize is obtained 
first) , and then goes to a read/write 
subroutine. The read/write subroutine 
checks for first time, two I/O areas, 
checkpoint records, etc, and performs the 
required I/O operation. The GET routine 
next branches to a workarea subroutine. 
The workarea subroutine checks for a 
workarea. If a workarea has been 
specified, the contents of the I/O area are 
moved into the workarea. If a workarea has 
not been specified, the address of the 
current I/O area is loaded into the user's 
IOREG. For variable- length and undefined 
records, the record size is calculated and 
made available to the user. The GET 
routine then returns control to the problem 
program. 



block count to be used with a POINT macro 
at some later time. 



MTMOD : 



POINTR Macro, Workfile Chart HJ 



Objective: To position the tape to read a 
record previously identified by a NOTE 
macro. 



Entry: From a POINTR macro expansion to 
the label IJFWPNTR. 

Exit: To the problem program. 

Method: This macro instruction repositions 
the file to read a record previously 
identified by a NOTE macro. The block 
count previously supplied by the NOTE macro 
is used by the POINTR macro to position the 
tape to the specified record on the file. 

The block count is updated in the DTF 
and compared with a count that was saved by 
the user from a previous NOTE macro. Then, 
the tape is spaced backward or forward, and 
the block count in the DTF is 
correspondingly decreased or increased 
until it is equal to the NOTE block count. 

When the equal condition is sensed, and 
if read backward is not specified in the 
DTF, the tape is backspaced one block. The 
tape is now positioned to read the desired 
record. 



MTMOD : 



POINTS Macro, Workfile Chart HK 



MTMOD: 



NOTE Macro, Workfile Chart HH 



Objective: To put the tape block count in 
register 1. 

Entry: From NOTE macro expansion to the 
label IJFWNOTE. 

Exit: To the problem program. 



Method: 



The NOTE macro instruction obtains 



the identification of the last physical 
record that was read or written in the 
specified file. The user must insure that 
the last operation was completed 
satisfactorily by issuing a CHECK macro 
before issuing a NOTE. The record 
identification is put in register 1. This 
identification is a three-byte block count. 
The user is responsible for saving the 



Objective: To position the tape at the 
beginning of the file for the next READ or 
WRITE macro. 

Entry: From a POINTS macro expansion to 
the label IJFWSPNT. 

Exit: To the problem program. 

Method: The POINTS macro instruction 
repositions a tape file to the beginning of 
the file. When a POINTS is issued to the 
tape file, the forward space file switch, 
bit 7 of byte 21 in the DTF, is set on and 
the tape is rewound. If header labels are 
present, they are bypassed when the next 
READ, WRITE, POINTR, or POINTW macro is 
issued. 
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MTMOD: POINTW Macro. Workfile Chart HL 



Objective: To position the tape to write a 
record following a record identified by a 
previous NOTE macro. 

Entry: From a POINTW macro expansion to 
the label IJFWPNTW. 

Exit: To the problem program. 

Method: The POINTW macro repositions the 
file to write a record after the record 
identified by a NOTE macro. The block 
count supplied by a previous NOTE macro is 
used by the POINTW to position the tape to 
write a record immediately after the one 
identified by the NOTE macro. 

The block count is updated in the DTF 
and compared with a count that was saved by 
the user from a previous NOTE macro. Then 
the tape is spaced backward or forward, and 
the block count in the DTF is 
correspondingly decreased or increased 
until it is equal to the NOTE block count. 
The tape is then in position to WRITE the 
desired record. 



been specified (for undefined records, the 
record size is obtained prior to this 
action) . If a workarea is specified, the 
record is moved from the workarea to the 
I/O area and any required blocking is 
performed. The PUT routine next goes to a 
read/write subroutine which checks for 
first time, two I/O areas, checkpoint 
records, etc, and performs the required I/O 
operation. The address of the next 
available I/O area is then loaded into the 
user's IOREG and the PUT routine returns 
control to the problem program. 



MTMOD : READ Macro, Workfiles Chart HP 



Objective: To read a physical record from 
tape. 

Entry: From a READ macro expansion 
IJFWREAD. 

Exit: To either the problem program or to 
the CHECK macro. 



MTMOD: PUT Macro Charts HM-HN 



Objective: To write a logical record on a 
magnetic tape file. 

Entry: For a PUT macro expansion to the 
label: 

IJFFPUT for files containing 
fixed-length records. 

IJFUPUT for records containing undefined 
records. 

IJFVPUT for files containing 
variable- length records. 

Exit: To the problem program 

Method: The PUT routine writes a record in 
the next sequential location on the file. 
If a workarea is specified, the PUT routine 
moves the contents of the workarea to the 
I/O area. For blocked (fixed and variable 
length) records , if the record fills the 
I/O area, the PUT routine writes the 
contents of the I/O area on the file. If 
unblocked or undefined records are 
specified, each PUT causes a record to be 
written on the file. If no workarea is 
specified, the user must build the physical 
record in the I/O area. 

The PUT routine goes first to a workarea 
subroutine to determine if a workarea has 



Method: The READ macro allows the user to 
access data on an input work file. This 
macro requires the user to specify the area 
the record is read into, and also allows 
the user to read only a portion of the 
record if he desires. The READ macro 
allows the user to read his records forward 
or backward. However, only one direction 
of reading is allowed for a particular 
file. Deblocking of blocked records is not 
performed by the READ macro. 

The READ macro routine branches to the 
READ/WRITE Common Subroutine, Chart JG, to 
test for record format and length and to 
set up the proper controls. The decision 
block that contains S SPECIFIED IN 
PARAMETER LIST determines if the entire 
physical record is to be read for undefined 
records. If S is not specified, only a 
portion of the record is read. WLR 
checking is not performed. 

Before returning to the READ macro 
routine, a check of bit 7 of byte 21 in the 
DTF is made to determine if a POINTS macro 
was issued before the READ. If the bit is 
on, indicating the POINTS was issued, the 
tape is at loadpoint. It is, therefore, 
necessary to execute a forward-space file 
operation to bypass any labels and position 
the tape to the first data record. When 
this operation is complete, control returns 
to the READ macro routine. 

The READ macro routine issues an EXCP to 
start a read operation and returns to the 
problem program. 
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MTMOD: RELSE Macro Chart HQ 



Objective: To skip the remaining records 
in a block. 



restored, and control returns to the 
problem program. 



Entry: 
label: 



From a RELSE macro expansion to the 



IJFFREL for files containing 
fixed-length records. 

IJFVREL for files containing 
variable-length records. 

Exit: To the problem program. 

Method: This routine causes the remaining 
records in the input block to be bypassed. 
Conditions are set up that cause the next 
GET instruction for this file to read in a 
new physical record from the file. The GET 
instruction makes the first logical record 
of the new block available to the user. 

The RELSE routine sets the end-of-block 
pointer to 0, and returns control to the 
problem program. 

The RELSE macro can only be issued to an 
input file. 



MTMOD: 



TRUNC Macro Chart HR 



Objective: To write the current block even 
if it is not full. 

Entry : From a TRUNC macro expansion to the 
label: 

IJFFTRU for files containing 
fixed-length records. 

IJFVTRU for files containing 
variable-length records. 

Exit: To the problem program. 

Method : This routine causes the current 
block to be considered full, and then 
writes it on the file. It sets up 
conditions that cause the next PUT macro 
instruction to begin placing records at the 
beginning of a new block. 

The TRUNC macro can only be issued to a 
blocked output file. 

The routine gets the current blocks ize, 
and checks to determine if it is 0. If 
yes, control returns to the problem 
program. If no, a new blocks ize is set in 
the CCW, and control branches to the 
read/write subroutine to write the 
truncated record. Then the CCW is 



MTMOD : 



WRITE Macro Workfile Chart HS 



Objective: To write a physical record on 
tape. 

Entry: From a WRITE macro expansion to 
IJFWRIT. 

Exit: To the problem program. 

Method: The WRITE macro instruction causes 
a record to be written from an indicated 
area to the output file. This routine 
requires the user to specify the area from 
which the record is written, and allows the 
user to specify the actual number of bytes 
to be written. If the length is not 
specified, the user specifies RECFORM=UNDEF 
in the DTF. Blocking of records is not 
provided for in the WRITE macro 
instruction. If blocking is desired, it is 
the user's responsibility to block the 
records before issuing a WRITE. 

The WRITE macro routine branches to the 
READ/WRITE Common Subroutine, Chart JG, to 
determine the record length and set up the 
proper controls. Before returning control, 
the subroutine checks bit 7 of byte 21 in 
the DTF to determine if a POINTS macro was 
issued before the WRITE. If the bit is on, 
indicating that POINTS was issued, the tape 
is at loadpoint. It is, therefore, 
necessary to execute a forward-space file 
operation to bypass any labels and position 
the tape to write the first data record. 
When this operation is complete, control is 
returned to the WRITE macro routine. 

The WRITE macro routine issues an EXCP 
to start a write operation and returns to 
the problem program. 



MTMOD : 



Bypass C heck point Records 



Routine Chart JF 



Objective: To bypass checkpoint records 
within an input tape data file. 

Entry: From the Read/Write subroutine when 
CHKPTREC=YES is specified in the DTFMT 
entry and there are checkpoint records in 
the file. 

Exjt: To the Read/Write subroutine. 

Method : For any mode input tape, this 
routine checks the first 12 bytes of each 
record in the input area for /// CHKPT //, 
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indicating a checkpoint header record has 
been read. For read backwards, the 
checkpoint header record is located in the 
20 lower-order bytes of the input area. 

Two methods for bypassing checkpoint 
records are: 

1. For read forward, continue to read and 
bypass records until the checkpoint 
trailer label is encountered. 

For read backwards, continue to read 
and bypass records until the checkpoint 
header label is encountered. The 
checkpoint header and trailer labels 
are identical. 



INITIALIZATION AND TERMINATION 



Magnetic tape files processed by logical 
IOCS must conform to certain standards. 
These standards concern labels, placement 
of tapemarks, and the grouping (blocking) 
of tape records. 

Tape files, with or without labels, can 
be processed by logical IOCS. It is the 
function of the open and close logical 
transients to process (check or create) the 
labels as required. Figures 18 and 19 
illustrate the organization of tape file 
labels. 



2. Extract bytes 14-15 of the checkpoint 
header label (or trailer label if 
reading backwards), pack the field 
(convert to binary) and forward space 
(or backspace) that number of records. 

Method 1 bypasses a Version 1 type 
checkpoint. Method 2 bypasses 
checkpoint types other than Version 1. 



When standard labels are specified for a 
tape file, logical IOCS processes only the 
standard volume label, VOL1, and the 
standard file labels, HDRl, EOF1, and EOV1. 
(Refer to Figures 20 and 21 for the format 
of these labels.) User labels and 
nonstandard labels must be processed by the 
user. 



Volume 1 of this set of four PLMs 
contains a detailed discussion on the use 
of tape labels. 
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Figure 18. Tape File with Standard Labels 
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Figure 19. Tape File with Standard and User Labels 
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Volume Label Format (80 bytes) for Tape. (Shaded areas are not processed by DOS/360). 
FIELD NAME AND LENGTH DESCRIPTION 



1. 



LABEL IDENTIFIER 
3 bytes 

VOLUME LABEL NUMBER 
1 byte 



Must contain VOL to indicate that 
this is a Volume Label . 

Indicates the relative position (1-8) of 
a volume label within a group of volume 
labels. 1 is the standard volume label. 



FIELD 



NAME AND LENGTH 

DATA FILE DIRECTORY 
10 bytes 



DESCRIPTION 



Not used. 



3 
0) 
uq 
S3 
CD 
ft 
H- 
O 

&> 

CD 

*l 
H- 
M 
CD 
CO 



VOLUME SERIAL NUMBER 
6 bytes 



VOLUME SECURITY 
1 byte 
(OS/360 only) 



A unique identification code which is 
assigned to a volume when it enters 
an installation. This code may also 
appear on the external surface of the 
volume for visual identification. It 
is normally a numeric field 000001 to 
999999, however any or all of the 6 
bytes may be alphameric. 

Indicates security status of the volume: 

= no further identification for each 

file of the volume is required. 

1 = further identification for each file 

of the volume is required before 
processing. 



6. 



7. 



RESERVED 
1 bytes 

RESERVED 
1 bytes 

OWNER NAME AND 
ADDRESS CODE 
1 bytes 



RESERVED 
29 bytes 



Reserved . 



Reserved. 



Indicates a specific customer, instal- 
lation and/or system to which the 
volume belongs. This field may be a 
standardized code, name, address, etc. 



Reserved. 



Note: 



All reserved fields should contain blanks to facilitate their use in the future. 

Any information appearing in these fields at the present time will be ignored by the 

Disk Operating System programs as well as the Operating System/360 programs. 
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The standard tape file label format and contents are as follows: (Shaded areas are not processed by DOS/360) 

FIELD NAME AND LENGTH DESCRIPTION FIELD 



1. 



LABEL IDENTIFIER 
3 bytes, EBCDIC 



F ILE LABEL NUMBER 
1 byte, EBCDIC 

FILE IDENTIFIER 
17 bytes, EBCDIC 

FILE SERIAL NUMBER 
6 bytes, EBCDIC 



8. 



VOLUME SEQUENCE 
NUMBER 4 bytes 



FILE SEQUENCE NUMBER 
4 bytes 

GENERATION NUMBER 
4 bytes 



VERSION NUMBER OF 
GENERATION 2 bytes 



identifies the type of label 

HDR = Header -- beginning of a data 

file 
EOF = End of File — end of a set of 

data 
EOV = End of Volume — end of the 

physical reel 

always a 1 

uniquely identifies the entire file, 
may contain only printable characters. 

uniquely identifies a file/volume 
relationship. This field is identical 
to the Volume Serial Number in the 
volume label of the first or only 
volume of a multi-volume file or a 
multi-file set. This field will normally' 
be numeric (000001 to 9999991 but may 
contain any six alphameric characters. 

indicates the order of a volume in a 
given file or multi-file set. The first 
volume can be any number. Subsequent 
numbers must be in proper numeric 
sequence . 

assigns numeric sequence to a file 
within a multi-file set. The first 
file can be any number. 

uniquely identifies the various editions 
of the file. May be from 0001 to 9999 
in proper numeric sequence. 

indicates the version of a generation 
of a file. 



9. 



10. 



11. 



12. 



13. 



14. 



File 
Security 



NAME AND LENGTH 



CREATION DATE 



6 bytes 



EXPIRATION DATE 
6 bytes 



FILE SECURITY 



1 byte 



BLOCK COUNT 



6 bytes 



SYSTEM CODE 
1 3 bytes 

RESERVED 
7 bytes 



DESCRIPTION 

indicates the year and the day of the 
year that the file was created: 



Code 



Meaning 



1 

2-3 

4-6 



blank none 

00-99 Year 

001 -366 Day of Year 



(e.g., January 31 , 1965, would be 
entered as 65031 ). 

indicates the year and the day of the 
year when the file may become a 
scratch tape . The format of this field 
is identical to Field 9. On a multi- 
file reel, processed sequentially, all 
files are considered to expire on the 
same day . 

indicates security status of the file. 

= no security protection 

1 = security protection. Additional 

identification of the file is 
required before it can be 
processed . 

indicates the number of data blocks 
written on the file from the last 
header label to the first trailer label, 
exclusive of tape marks. Count does 
not include checkpoint records. This 
field is used in trailer labels. 

uniquely identifies the programming 
system. 

Reserved. Should be recorded as 
blanks. 



Tape Open, Close and EOF/EOV Routines 
Charts 01 and 02 



Note: To simplify standard tape label 
processing and creation of tape files. 
Versions 2.1 and 3 provide a means of 
identifying tape files by a single job 
control statement, // TLBL. The // TLBL 
card, entered into the system with other 
job control statements, replaces both the 
// VOL and // TPLAB statements used with 
Versions 1 and 2. Note that Job Control 
accepts either type statement, and that a 
mandatory change of job control statements 
by the user is not required. 

Figure 22 illustrates the format of the 
label information supplied by the job 
control statement (s) as it appears on 
SYSRES and in main storage. The tape open 
and close logical transients use this 
information to check the actual labels on 
the tape being processed. 

In addition. Versions 2.1 and 3 
incorporate certain changes in the DTFMT 
file definition declarative macro which, 
when used, includes some label information 
in the DTF table (refer to Figure 15). 
Once again, it is not mandatory for the 
user to redefine tape files defined by 
either Version 1 or Version 2 DTFMT macros. 

The reader is cautioned, where reference 
is made to the // TLBL job control 

Job Control 
Statements 



// VOL 



and 



> or 



// TPLAB 



statement in the text and flowcharts in 
this manual, that the reference applies to 
the collective // VOL and // TPLAB 
statements as well. Also, the decision 
block (that appears in some of the 
flowcharts) that contains the question 

TLBL INFORMATION IN DTF 

determines if the DTF table contains the 
tape label information included by the 
Version 2.1 and 3 DTFMT macros. 



$$BOMT01: Open Input Standard Labels, 
Forward Charts KA-KC 



Objective: To open, in a forward 
direction, input tape files with standard 
labels. 

Entry: From the Open Monitor, $$BOPEN f or 
from a message writer phase to the label 
RELOCATE. 

Input: From the label information stored 
on the SYSRES label information cylinder by 
Job Control (// TLBL card image) and from 
the tape currently being processed. 



Exits: 



To the logical IOCS module if a 
non-DTFPH multivolume file is being 
processed, or 
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Figure 22. 



Shaded areas are not processed by DOS Logical IOCS. 

Format of SYSRES Tape Label Information 
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2. To the Open Monitor, $$BOPEN, if an 
OPEN macro was issued and/or a DTFPH 
file is specified. 

Method; This routine opens an input tape 
file in a forward direction. It reads the 
standard volume label (V0L1) and compares 
the volume serial number contained in the 
label to the volume serial number obtained 
from SYSRES. The routine then reads the 
standard tape file header label (HDR1) and 
compares it to corresponding entries 
specified in the SYSRES label information 
(// TLBL card) . 

All differences are noted by messages to 
the operator. If user labels are detected 
and the address of the user's label routine 
(LABADDR) is specified in the DTF table for 
the file, an exit is made to that routine 
to read and process the user's labels. 
After the tapemark signifying the end of 
the label area is read, the file is posted 
open. As a result of a successful open, 
the file is posted open in the DTF table, 
and the tape is positioned at the IRG 
preceding the first data record. 

Upon entry into the $$BOMT01 open phase, 
a test is made to determine if the phase 
was entered as a return from a message 
writer phase. If this is the case, a 
branch is made to the address specified by 
the particular response received from the 
operator for the message printed. This 
address is represented in the flowcharts by 
the exit(s) from the decision block 
following the message block. 

If the DTF table was generated by 
Version 2.1 or Version 3 of DOS, it 
contains tape label information. If entry 
to phase $$BOMT01 was not by return from a 
message writer phase, a test is made for 
the presence of this label information. If 
the DTF contains such information, it must 
then be used to update the SYSRES label 
information. 

Next, the $$BOMT01 open phase reads the 
tape for a standard volume label, V0L1 
(refer to Figure 20). If this label is not 
found, error message 4111A is printed. If 
the VOL1 label is found, the DTF table is 
checked to determine if the file is already 
open. If the open indicator is on, byte 36 
of the DTF table is examined to determine 
if the file is defined for processing by 
physical IOCS (DTFPH) . If the file is so 
defined, the volume sequence number entry 
in the // TLBL card image is incremented by 
1 unless the entry is blank. 

If the file is not already open, the 
volume serial number in the tape VOL1 label 
is compared to the file serial number in 
the // TLBL card image. If the numbers are 
not the same, error message 4112A is 



printed. If the response to this message 
is IGNORE, the // TLBL file serial number 
is made equal to the volume serial number. 
If the response is NEWTAP, indicating that 
the operator has mounted a new tape, 
checking of the standard volume label is 
repeated. If the response is BYPASS, or if 
the serial numbers are equal, the next 
record on the tape is read. 

Any volume labels after the VOL1 label 
are bypassed. When a standard tape file 
label, HDR1 (see Figure 21), is read, the 
following label entries are checked against 
the corresponding entries in the // TLBL 
card image as specified: file serial 
number, volume sequence number, file 
sequence number, generation number, version 
number, creation date, and file identifier 
(FILEID). Any discrepancies are noted by 
error messages. 

After the standard file label (HDR1) is 
read and checking is complete, all 
additional file labels are bypassed and the 
phase proceeds to check for user labels. 
If the address of the user's label routine 
is specified in the DTF table (LABADDR) , 
any user labels on the tape are checked. 
If the user's label routine address is not 
specified, checking of user labels is 
bypassed. 

The reading of a tapemark indicates the 
end of the label area on the tape- If the 
DTF table contains TLBL information, the 
table is updated from the new // TLBL card 
image. If the DTF table does not contain 
TLBL information, the new // TLBL card 
image is stored back in the SYSRES label 
information cylinder. The file is posted 
open in the DTF table and the $$BOMT01 
phase is terminated. 



$$ BOMT0 2; Open In put Standa rd Labels , 
Backward Chart KD 



Objective : To open, in a backward 
direction, input tape files with standard 
labels. 

Entry : From the Open Monitor, $$BOPEN, or 
from a message writer phase to the label 
RELOCATE. 

Input: Input is from the SYSRES label 
information cylinder ( // TLBL card image) 
and the tape currently being processed. 

Exits: 

1. To Open Monitor, $$BOPEN, if an open 
statement was issued. 
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2. TO CANCEL. 



$$B0MTQ3; Open Output Standard Labels , 

Forward (Phase 1) Charts KE-KF 



Method: This routine opens input tape 
files in a backward direction by reading 
the trailer labels instead of header 
labels. 



Objective: To open, in a forward 
direction, output tape files with standard 
labels. 



Upon entry 
a test is made 
was entered on 
writer phase, 
branch is made 
the response r 
the message pr 
represented in 
from the decis 
message block. 



into the $$BOMT02 open phase, 
to determine if the phase 
a return from a message 
If this is the case, a 
to the address determined by 

eceived from the operator for 

inted. This address is 
the flowchart by the exit(s) 

ion block following the 



The $$BOMT02 routine then checks for a 
tapemark to determine that the tape is 
positioned correctly. If a tapemark is not 
read, error message 4117D is printed. 
After reading the tapemark, the routine 
reads the trailer labels. 

If user trailer labels are present and 
the address of the user's label routine, 
LABADDR, is specified in the DTF table, the 
routine exits to the user*s label routine 
to process the user trailer labels. If 
LABADDR is not specified, the user trailer 
labels are bypassed. 

After processing the user labels, if 
required, the $$BOMT0 2 routine reads the 
file trailer labels until either a standard 
end-of-file or end-of -volume, E0F1 or E0V1, 
label is encountered (refer to Figure 21 
for the label format) . All intervening 
file trailer labels are ignored. When E0F1 
or E0V1 label is read, only the 
file-identifier (FILEID) portion of the 
label is checked against its corresponding 
entry in the // TLBL card image in main 
storage. 



Note: If the FILEID in the // TLBL card 
image is blank, no checking of the standard 
file trailer label is performed. 

If the FILEID numbers are not equal, 
error message 4118D is printed. 

After the file trailer label is 
processed, the routine reads the tapemark 
that precedes the trailer label area, posts 
the file open in the DTF table, and returns 
to the Open Monitor, $$B0PEN. 

A successful open positions the tape at 
the IRG that follows the last data record. 



Entry: From the Open Monitor, $$BOPEN, or 
from a message writer phase. 

Input: From the SYSRES label information 
cylinder (// TLBL card image) and from the 
tape currently being processed. 

Exit: To the second phase of Open Output 
Standard Labels, Forward, $$BOMT04. 

Method: The $$BOMT03 routine checks and 
builds labels for output tape files. The 
routine: 

1. Checks the information in the // TLBL 
card image and inserts the proper data 
when blank entries are encountered. 

2. Reads the standard volume label from 
the tape and compares it to the 
information in the // TLBL card image. 

3. Determines the availability of the tape 
from the standard file label. 

4. Writes new standard file and user 
labels as required. 

When the required labels have been 
written on the tape, a tapemark is written 
and the file is posted open in the DTF 
table. At this point, the tape is 
positioned at the beginning of the data 
area. 

Upon entry into the $$BOMT03 phase, a 
check is made to determine if the phase was 
entered on a return from a message writer 
phase. If this is the case, a branch is 
made to the address determined by the 
response received from the operator for the 
message printed. This address is 
represented in the flowcharts by the 
exit(s) from the decision block following a 
message block. 

If a $$BOMT03 phase was not entered from 
a message writer phase, a test is made to 
determine if tape label information is 
contained in the DTF table. If so, (table 
generated by a Version 2.1 or Version 3 
DTFMT macro) , it is necessary to update the 
// TLBL card image in main storage with 
information contained in the DTF table. 

This routine then checks the following 
fields of the // TLBL card image and 
inserts default values, as necessary, when 
blank entries are encountered: 
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• Volume sequence number (def ault-0001) . 



The information from the // TLBL card image 
used to build the label includes: 



• File sequence number (def ault-0001) . 

• Generation number (default-0001) . 

• Version number (default-01) . 

• Expiration date (default-retention 
period = 0) . 

• Creation date (today's date). 

The block count in the DTF table is set 
to zero and a check is made for 
specification of no-rewind (NORWD) . If 
NORWD is not specified, the tape is rewound 
to loadpoint. If NORWD is specified and 
the tape is not at loadpoint, a branch is 
made to location BACKSPC2, Chart KF. If 
the tape is at loadpoint, a check is made 
on the density of the tape mounted and 
assigned. After the density check, the 
tape is read in search of a standard volume 
label, VOL1 (refer to Figure 20 for the 
format of a standard volume label). 

If a VOL1 label is not found, error 
message 4110A is printed. If the operator 
response is a volume serial number, a new 
VOL1 label, followed by a dummy record to 
prevent possible detection of a noise 
record, is written. A response of NEWTAP 
indicates that the operator has mounted a 
new tape and the check of the VOL1 label is 
repeated. 

If a standard volume label is found and 
the file is not already posted open in the 
DTF table, the file serial number in the // 
TLBL card image is checked. If this field 
is blank, the volume serial number from the 
VOL1 label is inserted into the card image. 
The volume serial number and the // TLBL 
card file serial number are compared. Any 
discrepancy is noted by error message 
4112A. If the serial numbers are equal, 
the next record is read. If any additional 
volume labels are read, they are bypassed. 

When the standard file label, HDR1 
(refer to Figure 21 for the format of a 
standard file label), is read, the 
expiration date is checked to determine the 
availability of the tape. If the tape is 
available (that is, if the retention period 
has expired or the expiration date has been 

— ^~^-X^^J> .«.— .! XT — ~. rtnn-1 T ~ W ~ 1 JZ ~. J J_ 1 

x.<eciv*iic:\a/ \jx. xi no nxmx xawcx wao xuunu, cut? 

tape is backspaced and a new standard file 
label is built and written on the tape. 

To build the new standard file label, 
information is obtained from the // TLBL 
card image. If the file identifier 
(FILEID) field of the // TLBL card is blank 
or zero, the filename is obtained from the 
DTF table and inserted into the card image. 



• File identifier. 

• File serial number. 

• Volume sequence number. 

• File sequence number. 

• Generation number. 

• Version number. 

• Creation date. 

• Expiration date. 

• Block count. 

If the tape is not at loadpoint, the 
routine at BACKSPC2 is entered to backspace 
two records and read one record in a 
forward direction. This sequence of 
operations is executed in an attempt to 
locate and retrieve information from the 
EOF1 label of the preceding file. The 
volume sequence, the file serial numbers, 
and the file sequence number +1 from the 
EOF1 label are inserted into the // TLBL 
card image. A new header label is built 
and written for the file being opened as 
previously described. If no preceding file 
labels are found, the tape is rewound and 
unloaded and error message 41201 is 
printed. 

The normal exit from this phase is made 
to fetch $$BOMT04. 



$$BOMT04: Open Output Standard Labels, 

Forward (Phase 2) Chart KG 



Objective: To write user labels and open 
output tape data files with standard 
labels. 

Entry: From the first phase of the Open 
Output Standard Labels, $$BOMT03. 

Input: From the DTF table and the user's 
label routine. 

Exits: 

1. To the Open Monitor, $$BOPEN, if the 
file is not already posted open. 

2. To the logical IOCS module if the file 
is already posted open. 

Method : If phase $$BOMT04 is re-entered 
from a message writer phase, the return bit 
in byte 89 of the communications region is 
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reset. control is then passed to the 
address in register 14. 

When phase $$BOMT04 is entered normally 
(or re-entered from a message writer with 
no return address specified) , a test is 
made to determine the version level of the 
DTF table. If the table was generated by a 
Version 2.1 or Version 3 DTFMT macro, the 
file serial, volume sequence, and file 
sequence numbers from the // TLBL card 
image (bytes 26 through 39) are inserted 
into the corresponding entries of the DTF 
table (bytes 42 through 55). Otherwise, 
the new // TLBL card image is written back 
onto the label information cylinder of 
SYSRES. 



The $$BOMT04 phase 
user's label routine 
process and write up 
When the user's label 
a tapemark is written 
of the tape label are 
indicator in the DTF 
the open indicator is 
returns to the logica 
open indicator is not 
and the open monitor. 



then exits to the 

if specified, to 

to eight user labels, 
routine is complete, 
to indicate the end 

a, and the open 

table is checked. If 
already on, control 

1 IOCS module. If the 
on, it is turned on 
$$BOPEN, is fetched. 



A successful open posts the file open in 
the DTF table, and positions the tape at 
the IRG preceding the area of the first 
data record. 



$$B0MTQ5: Open Input or Output, 

Nonstandard or Unlabeled Charts KH-KJ 



Objective: To open nonstandard and 
unlabeled files, both input and output, in 
either a forward or a backward direction. 

Entry: From the Open Monitor, $$BOPEN. 

Input: From the tape being processed. 

Exits: 

1. To the Open Monitor, $$BOPEN, after the 
file is posted open in the DTF table. 

2 m To ^he iogi ca i iocs module if the file 
is already posted open in the DTF table 
(multireel file). 

Method : This routine checks for 7-track or 
9-track tape and sets the correct mode. If 
nonstandard labels are specified, an exit 
is made to the user label address. After 
the return from the user, a tapemark may or 
may not be written for an output file, 
according to the option specified in the 
DTF. For input files, a check is made to 
determine if the tapemark was read by the 
user. 



For unlabeled files, tests for options 
such as tapemark, rewind, etc., are made to 
determine the various factors stated in the 
DTF parameters and appropriate action is 
taken. If the file has been previously 
opened (multireel file) , control returns to 
logical IOCS. If the file has not been 
opened, the routine opens the file and 
calls the Open Monitor. 



Upon entry to the $$BOMT05 phase , a test 
is made to determine if the phase was 
entered on a return from a message writer 
phase. If this is the case, a branch is 
made to the address (in register 14) 
specified by the response received from the 
operator for the message printed. This 
address is represented in the flowcharts by 
the exit(s) from the decision block 
following the message block. 

If the phase was not entered on a return 
from a message writer phase, the DTF table 
is examined to determine the direction of 
the file to be opened and the appropriate 
action is taken. 

1. For nonstandard labeled input files 
opened in a forward direction, the 
labels are processed by the user if the 
address of the user's label routine is 
specified in the DTF table. Detection 
of a tapemark indicates the end of the 
label area, and the file is posted 
open. 

2. For unlabeled input files opened in a 
forward direction, the tape is read in 
search of a tapemark. If a tapemark is 
not read, the tape is backspaced one 
record to return it to its original 
position. In either case, the file is 
posted open in the DTF table. 

3. For nonstandard labeled output files 
opened in a forward direction, the 
labels are processed by the user if the 
address of the user's label routine is 
specified in the DTF table. If the 
tapemark option is specified in the DTF 
table, a tapemark is written after the 
last label. The file is then posted 
open. 

4. For unlabeled output files opened in a 
forward direction, the tape is read to 
determine if the tape contains any 
labels. If a label is detected, error 
message 4125D is printed and the 
operator can elect either to ignore the 
label or to mount a new tape. If the 
operator chooses to ignore the label 
and the tape is a 9-track tape, it is 
backspaced, written, and again 
backspaced. This sets the mode and 
erases the label. If the tapemark 
option is specified in the DTF table, a 
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7. 



tapemark is written. The file is then 
posted open in the DTF table. 

For nonstandard labeled input files 
opened in a backward direction, the 
labels are processed by the user if the 
user's label routine address is 
specified in the DTF table and the file 
is posted open in the DTF table. 

For unlabeled input files opened in a 
backward direction, the only check is 
for the existence of a tapemark. This 
test positions the tape properly. The 
file is then posted open in the DTF 
table. 

For nonstandard labeled output files 
opened in a backward direction, the 
same action as in item 5 occurs. 

For unlabeled output files opened in a 
backward direction, the same action as 
in item 6 occurs. 



If a standard volume label is read, 
additional read commands are executed to 
bypass any additional volume labels. If a 
standard file label (HDRl) is read that is 
neither blank nor all zeros, the expiration 
date is checked to determine the 
availability of the tape. If the tape is 
available or if no HDRl label is read, the 
tape is backspaced, a dummy file label of 
zeros is built and written, and a tapemark 
is written to indicate the end of the label 
area. The file is then considered open and 
control returns to the Open Monitor, 
$$BOPEN. 

If the standard file label (HDRl) read 
is blank or zero, another read command is 
issued. If a tapemark is not read, the 
tape is backspaced and a tapemark is 
written. The file is then considered open. 



$$BJCOPT: Job Control Tape Open Charts 
KL-KN 



$$BOMT06; Open Workfiles (Magne tic 

Tape) Chart KK-KKA 



Objective: To open a tape workfile. 

Entry: From the Open Monitor, $$BOPEN, to 
the label TRANSENT. 

Input: From the tape being processed. 

Exit: To the Open Monitor, $$BOPEN. 

Method :_ This routine opens standard 
labeled^ or unlabeled, input or output, tape 
workfiles. 

If this phase is reentered on a return 
from a message writer phase, a branch is 
made to the address specified by the 
response received from the operator for the 
message printed. This address is 
represented in the flowchart by the exit(s) 
from the decision block that follows a 
message block. 

If this phase was entered from the Open 
Monitor the tape is rewound to loadpoint, 
unless the NORWD option is specified in the 
DTF table, and a read command issued. 

If a tapemark is read, the file is 
immediately considered open and control is 
returned to the Open Monitor, $$BOPEN. 

If a standard volume label (V0L1) is not 
read, the tape is backspaced and a tapemark 
is written. The file is then considered 
Open and control is returned to the Open 
Monitor, $$BOPEN. 



Objective: To open SYSRDR, SYSIPT, SYSPCH, 
and SYSLST when these logical units are 
assigned to tape units. 



Entry: 

• From Job Control to open SYSRDR, 
SYSIPT, SYSPCH, and SYSLST when these 
logical units are assigned to tape 
units. 

• From the Linkage Editor to open SYS001 
if SYS001 is a tape. 

• From Phase $$BCMT07 to open an 
alternate assignment. 



Exit: To the problem program via SVC 11. 

Method: This routine opens SYSRDR, SYSIPT, 
SYSPCH, and SYSLST when these logical units 
are assigned to tape units. Three 
attempts, using the following assumptions, 
are made to read the first record: 

1. A label in standard mode and read first 
record; no retries. 

2. Unlabeled file and read first record in 
user mode; no retries. 

3. Read first record in standard mode; 
allow retries. 

This is a table of actions taken by the 
routine depending upon the result of 
reading the first record: 
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h 



Result 



-T 

| Input 
JFile 



Unreadable j Rewind 

I 
Unlabeled | Rewind 



Standard 
Label Set 



I 

| Skip 

(Labels, 

| and 

jtapemark. 



Output File 

Error 

Rewind 

Skip volume labels, 
write HDR1 and 
tapemark. 



Note; If SYSLST, SYSPCH, or SYSOUT is 
assigned to a tape file. Job Control Open 
preserves the volume label; and if the 
header label is expired. Job Control writes 
a new header label with the format HDRl 
followed by 76 binary zeros. 



^BCEOVlj EOF/EOV Monitor Charts KP-KQ 



Objective: To initialize for End of 
File-End of Volume (EOF-EOV) routines, and 
to fetch the proper EOF-EOV routine- This 
phase is used for tape files only. 

Entry; From the problem program when an 
end-of-file or end-of-volume condition is 
sensed (SEOV). Forced EOV (FEOV macro) 
also calls this routine. 

Exit; To the proper EOF-EOV routine. 

Method: This phase determines the type and 
format of the file from the DTF table, and 
selects the name of the required tape EOF 
or EOV phase. It then reads SYSRES label 
information for the file into the open 
table at the end of the logical transient 
area. This information is passed to the 
required tape EOF/EOV phase fetched by the 
EOF/EOV Monitor. 



$$BCMT01: Tape Close, EOF/EOV Input 
Forward Charts KR-KS 



Objective: To close an input tape file 
reading in a forward direction. 

Entry: From the EOF/EOV Monitor, $$BCEOVl, 
to the label TRANSENT. 

Input: From the SYSRES label information 
cylinder (// TLBL card image) and from the 
tape currently being processed. 

Exit: 

1. To the user's EOF routine if specified 
in the DTF table. 



2. To phase $$BCMT02 for an EOV condition 
to switch to an alternate tape. 

3. To CANCEL if an error condition occurs. 

Method: This routine is called by the 
EOF/EOV Monitor. The routine reads and 
processes the standard trailer label. An 
exit and return are provided for processing 
user labels if LABADDR is specified. It 
checks to determine if an EOF or EOV 
condition is present. If an EOV condition 
exists, $$BCMT02 (alternate switching 
routine) is called. If an EOF condition 
exists, control passes to the user's EOF 
routine by branching to the user's EOFADDR. 

Upon entry into the $$BCMT01 phase, a 
test determines if the phase was entered on 
a return from a message writer phase. If 
this is the case, a branch is made to the 
address specified (in register 14) by the 
response received from the operator for the 
message printed. This address is 
represented, in the flowcharts, by the 
exit(s) from the decision block following a 
message block. 

If the phase was not entered on a return 
from a message writer phase, a check of the 
DTF table (byte 36) then determines if the 
file is being closed as a result of an FEOV 
(Force-End-of -Volume) macro being issued. 
If bit 3 of byte 36 is on, an FEOV macro 
was issued. The tape is rewound, unless 
the NORWD option is specified in the DTF. 
No label che cking is performed. Phase 
$$BCMT02 is then fetched to determine if an 
alternate tape is available. 

If an FEOV macro was not issued, the 
$$BCMT01 phase reads the tape in search of 
standard trailer labels if such are 
specified in the DTF table. Refer to 
Figures 18 and 19 for the organization of 
tape files and to Figure 21 for the format 
of standard tape file trailer labels, EOV1 
and EOF1. Only the block count contained 
in these labels is checked against the 
block count contained in the DTF table. 
Any discrepancy is noted by error message 
4131D. User labels are then checked if 
specified in the DTF table; otherwise, the 
user's trailer labels are bypassed. The 
tape is rewound, unless the NORWD option is 
specified, and a check determines the type 
of standard trailer label read (that is, 
E0V1 or E0F1). An E0F1 label sets the 
EOF-EOV switch, bit 4 or byte 36 in the DTF 
table. If the switch is turned on, the 
file is posted closed in the DTF table and 
an exit is made to user's end-of-file 
address, EOFADDR. If the switch is off, 
indicating that an end-of-volume condition 
exists, a test determines if the file is a 
COBOL file that must be rewound and 
unloaded. If so, the rewind-unload 
operation is executed. Phase $$BCMT02 is 
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fetched to determine if an alternate tape 
is available. 

If nonstandard labels are specified, 
exit is made to the user's label routine 
(LABADDR) to process these labels. If no 
labels are specified or if the user 
specifies the end-of-file in the user label 
routine f exit is made to the user's 
end-of-file routine, EOFADDR. If the user 
specifies end-of-volume, phase $$BCMT02 is 
fetched to determine the availability of an 
alternate tape. 

If the user specifies neither end of 
volume nor end of file, message 4130A is 
printed and the operator can specify either 
EOF or EOV. If the operator's reply is 
EOF, an exit is made to the user's 
end-of-file routine, EOFADDR. If the 
operator's reply is EOV, a test determines 
if the file is a COBOL file that must be 
rewound and unloaded. If so, the 
rewind-unload operation is executed. Phase 
$$BCMT01 then fetches phase $$BCMT02 to 
determine the availability of an alternate 
tape. 



$$BCMT02; Tape Close, Alternate Switching 

for EOV Charts KT-KU 



Objective: To switch tape drives when EOV 
is sensed. 

Entry ; From $$BCMT01 or $$BCMT04. 

Input: From the trailer label of the 
active file and from the SYSRES label 
information (// TLBL card image) in main 
storage. 

Exits: To $$BOMT01, to $$BOMT05, to 
$$BOPEN, or to CANCEL. 

Method : This routine switches from one 
drive to another, if an alternate drive is 
specified and if EOV is sensed in the 
trailer label of the tape file previously 
processed. It switches either input or 
output tape files and calls in the 
appropriate open phase to open the 
alternate file. If EOV is not sensed and 
if no alternate drive is specified, a 
message is issued. The user can cancel the 
job or mount a new tape on the same drive 
and continue. 



If the $$BCMT02 phase was not entered 
from a message writer phase, a test 
determines if tape label information is 
contained in the DTF table. If so, 
(indicating that the table was generated by 
a Version 2.1 or Version 3 DTFMT macro), it 
is necessary to update the // TLBL card 
image in main storage with information 
contained in the DTF table. 



An SVC 22 is issued to seize the system; 
that is, to disable the multiprogramming 
operation. The address of the logical unit 
block (LUB) entry for the tape being closed 
is obtained. From this entry, the 
addresses of the Physical Unit Block (PUB) 
entry and the first Job Information Block 
(JIB) entry, if any, are calculated. Any 
alternate assignment for the LUB is stored 
in the JIB table. After the alternate PUB 
is obtained and checked for availability, 
an SVC 22 is again issued to release the- 
system, that is, to return to 
multiprogramming operation. 



Note: Further description of the SVC 22 
and of the functions of the LUB, PUB, and 
JIB tables is found in the IBM System/360 



Disk Operating System, Supervisor and 
Physical and Logical Transients, Program 
Logic Manual listed in the Preface to this 
publication. 



If the file being closed (the file for 
which an alternate assignment has been 
found) is an output file, the address of 
the DTF table is saved and the Open 
Monitor, $$BOPEN, is fetched. If the file 
is an input file with nonstandard labels, 
phase $$BOMT05 is fetched to open the 
alternate assignment. 



If the file being closed is a standard 
labeled input file, the volume sequence 
number in the // TLBL card image in main 
storage is updated by 1. If the DTF table 
contains tape label information, it is also 
necessary to update the volume sequence 
number in the DTF table. If the DTF table 
does not contain tape label information, 
the updated // TLBL card image is written 
back onto the label information cylinder on 
SYSRES. In either case, phase $$BOMT01 is 
fetched to open the alternate assignment. 



If the $$BCMT02 phase is reentered on a 
return from a message writer phase, a 
branch is made to the address (in register 
14) specified by the response received from 
the operator for the message printed. This 
address is represented in the flowcharts by 
the exit(s) from the decision block 
following a message block. 



If no alternate assignment is available 
for the file being closed, message 4140A is 
printed. The operator can mount an 
alternate tape and give a NEWTAP response 
to the message. The phase then proceeds to 
reopen the file as if an alternate had been 
assigned. 
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££BCMT03j Tape Close, EOF Backward 

KV 



Chart 



Objective: To close an input tape file 
reading in a backward direction. 



Entry: From the EOF/EOV Monitor, $$BCEOVl, 
to the label TRANSENT. 

Input: From the SYSRES label information 
cylinder (// TLBL card image) and from the 
tape being processed. 

Exits: 

1. To the user's end-of-file routine, 
EOFADDR. 



All user header labels are processed by 
the user's label routine (LABADDR) , or they 
are bypassed if the address of the user's 
label routine is not specified. All file 
header labels preceding (in a backward 
direction) the standard HDR1 label are 
bypassed. When the HDR1 label is read, 
only the block count contained in the label 
is checked against the block count 
contained in the DTF table. Any 
discrepancy is noted by error message 
4131D. After checking the block count, the 
$$BCMT03 phase proceeds as described for 
unlabeled files. 



$$BCMT04: Tape Close, EOV Output 
Forward Charts KW-KX 



2. To cancel, if an error condition is 
encountered. 

Method : The $$BCMT03 phase reads the file 
header labels and processes the labels as 
trailer labels. The block count is checked 
and the file is then ready to be closed by 
the user's end-of-file routine. 

Upon entry into the $$BCMT03 phase, a 
test determines if the phase was entered on 
a return from a message writer phase. If 
this is the case, a branch is made to the 
address (in register 14) specified by the 
response received from the operator for the 
message printed. This address is 
represented in the flowchart by the exit(s) 
from the decision block that follows a 
message block. 

If the phase was not reentered from a 
message writer phase, a check of the DTF 
table determines the type of labels 
specified. If the file is unlabeled, that 
is, if neither standard nor nonstandard 
labels are specified in the DTF table, the 
end-of-file indicator (bit 4 of byte 35) is 
turned on and the first time switch (bit 
of byte 21) is turned off in the DTF table. 
An exit is made to the user's end-of-file 
routine, EOFADDR. 

If nonstandard labels are specified in 
the DTF table ? an exit is made to the 
user's label routine (LABADDR) to process 
the labels. After the user's label routine 
is complete, or if the address of the 
user's label routine is not specified, the 
$$BCMT03 phase proceeds as described for 
unlabeled files. 

If standard labels are specified in the 
DTF table, the tape is read in search of 
the standard file header label, HDRl. 
Refer to Figures 18 and 19 for tape file 
organization and to Figure 21 for the 
format of a HDRl label. 



Objective: To close an output tape file 
reading in a forward direction. 

Entry: From the EOF/EOV monitor, $$BCE0V1, 
to the label TRANSENT. 

Input: From the SYSRES label information 
cylinder (// TLBL card image) and from the 
tape being processed. 

Exit: To phase $$BCMT02 to determine the 
availability of an alternate assignment. 

Method: The $$BCMT04 phase closes the 
current active file by writing trailer 
labels and a tapemark, and fetches the 
alternate switching phase, $$BCMT02, to 
open the next tape reel. 

Upon entry to the $$BCMT04 phase, a 
check determines the type of labels 
specified in the DTF table. If standard 
labels are specified, the version level of 
the DTF table is verified by examining bit 
5 of byte 31 in the table. If the bit is 
on, the table was generated by a Version 
2.1 or Version 3 DTFMT macro. It is then 
necessary to modify the corresponding 
entries in the // TLBL card image in main 
storage with the file serial, volume 
sequence, and file sequence numbers from 
the DTF table. After the // TLBL card 
image is modified with the DTF table 
information^ the following card entries are 
checked and the proper default value 
inserted if any are blank: 

• File identification (FILEID) number 
(default = filename from the DTF 
table) . 

• Generation number (default = 0001). 

• Version number (default = 01). 

• Expiration date (default = retention 
period set to days). 
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Note: If expiration date is not absolute, 
the expiration date is calculated by adding 
the retention period to today's date. 

After updating the // TLBL card image or 
if bit 5 of byte 31 in the DTF table is not 
on (indicating that the DTF table does not 
contain tape label information and updating 
is bypassed) , the volume sequence number in 
the // TLBL card image is incremented by 1 
and the entire updated card image is used 
to build a standard EOV1 file label. Refer 
to Figure 21 for the format of a standard 
file label. 

The updated // TLBL card image is then 
written back onto the label information 
cylinder of SYSRES. If the DTF table does 
contain tape label information, it is also 
updated with the information from the // 
TLBL card image. The EOV1 label is then 
written on the tape. 

An exit is made to the user's label 
routine (LABADDR) to process and write user 
labels as specified. After the user's 
label routine is complete, a tapemark is 
written to indicate the end of the label 
area. The tape is rewound, rewound and 
unloaded, or left positioned, as specified 
by the user in the DTF table. The block 
count in the DTF table is reset to zero, 
and phase $$BCMT02 is fetched to determine 
the availability of an alternate 
assignment. 

If nonstandard labels are specified in 
the DTF table, an exit is made to the 
user's label routine to process these 
labels and the $$BCMT04 phase is concluded 
in the manner just described. 



$$BCMT05: Close Standard, Non- stand ard, 

and Unlabele d Files , All Types Except 
Workfiles Charts KY-KZ 



exits to the user's label routine to 
process user labels or nonstandard labels. 
No label checking is performed on input 
files. 

Upon entry into the $$BCMT05 phase, a 
check is made of the open indicator (bit 5 
of byte 36) in the DTF table. If the oit 
is not on (file not open), the block count 
in the DTF table is set to zero, the first 
time switch (bit of byte 21) in the DTF 
table is turned off, and the Close Monitor, 
$$BCLOSE, is fetched. If the open 
indicator is on, a test determines if the 
file is input or output. 

If the file is an input file, the tape 
is rewound, rewound and unloaded, or left 
positioned as specified in the DTF table by 
the user. The file is then posted closed 
in the DTF table. The $$BCMT05 phase is 
concluded by resetting the DTF block count 
to zero and turning off the DTF first time 
switch. The Close Monitor, $$BCLOSE, is 
then fetched. 

If the file is an output file, a 
tapemark is written to indicate the end of 
the data area. For nonstandard labeled 
output files, an exit is made to the user's 
label routine (LABADDR), if specified. 
When the user's label routine is complete, 
or if the address of the user's label 
routine is not specified for nonstandard 
labels, or if the file is unlabeled, a 
tapemark is written and the DTF table is 
checked for the NCRWD option. If the NCRWD 
option is not specified, the tape is either 
rewound, or, rewound and unloaded, as the 
user requires. If NORWD is specified, the 
tape is backspaced over the last tapemark 
written. The $$BCMT05 phase is then 
concluded by posting the file closed, 
resetting the DTF block count to zero, 
turning off the first time switch in the 
DTF, and fetching the Close Monitor, 
$$BCLOSE. 



Objective: To close a tape input or output 
file, reading in the forward or backward 
direction. 

Entry: From the Close Monitor, $$BCLOSE, 
to the label TRANSENT. 

Input: From the SYSRES label information 
cylinder (// TLBL card image) and from the 
tape being processed. 

Exit: To the Close Monitor, $$BCLOSE. 

Method: The $$BCMT05 phase closes 
standard, nonstandard, and unlabeled input 
or output files in either direction, 
forward or backward. The phase writes a 
standard E0F1 trailer label on output files 
when standard labels are specified and/or 



For standard labeled output files, the 
version level of the DTF table must be 
determined by examination of bit 5 of byte 
31 in the DTF table. If this bit is on, 
the table was generated by a Version 2.1 or 
Version 3 DTFMT macro and contains 
information needed to update the // TLBL 
card image in main storage. 

The first step in the updating procedure 
inserts the file serial, volume sequence, 
and file sequence numbers from the DTF 
table into the corresponding entries of the 
// TLBL card image. The second step checks 
the following entries of the // TLBL card 
image and inserts the proper default value 
where blank entries are encountered: 

• File identification (FILEID) number 
(default = the DTF filename). 
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• Generation number (default 



0001), 



• Version number (default = 01). 

• Expiration date (default = set 
retention period to days) . 

Note: If expiration date is not absolute, 
the date is calculated by adding the 
retention period to today's date. 

If the DTF table was not generated by a 
Version 2.1 or Version 3 DTFMT macro, no 
modification of the // TLBL card image is 
necessary and the update procedure is 
bypassed. 

A standard EOF1 label (refer to Figure 
21 for the format of a standard file label) 
is then built from the // TLBL card image 
information and written on the tape. If 
user labels are specified in the DTF table, 
an exit is made to the user's label routine 
(LABADDR) to process and write the user's 
labels. 

When all labels have been written, two 
tapemarks are written to indicate the end 
of the label area and the last file on the 
reel. If the user has specified the NORWD 
option, the tape is backspaced over the 
last tapemark written. On the other hand, 
if the NORWD option is not specified, the 
tape is either rewound, or rewound and 
unloaded, as the user requires. The file 
is then posted closed, the block count in 
the DTF table reset to zero, the first time 
switch in the DTF table turned off, and the 
Close Monitor, $$BCLOSE, fetched. 



££BCMT06j Close_Workfiles Chart LA 



Objective: To close a tape workfile. 

Entry: From the Close Monitor, $$BCLOSE, 
to the label WORKFILE. 

Inpu t: From the DTF table. 

Exit: To the Close Monitor, $$BCLOSE. 

Method: This routine closes any magnetic 
tape workfile. It checks to determine if 
the last tape operation was a read or a 
write. If write, a tapemark is written, 
and the rewind option is tested. If read, 
the rewind option is tested. In either 
case, if NORWD was specified, the rewind 
function is bypassed. If NORWD was not 
specified, the tape is either rewound to 
the loadpoint, or, rewound and unloaded, as 
the user requires. The block count in the 
DTF table is reset to zero, and the Close 
Monitor is fetched. 



$$BCMT07: Alternate Switching for System 

Units Charts LB-LC 



Objective: To terminate and switch to an 
alternate drive when an EOV condition is 
encountered on an output tape file assigned 
to either SYSLST or SYSPCH. 

Entry: From the EOF/EOV Monitor, $$BCEOVl, 
or from an output CP module. 

Input: From the Supervisor I/O tables. 
Refer to the IBM System/360 Disk Operating 
System, Supervisor and Physical and Logical 
Transients Program Logic Manual, listed in 
the Preface to this publication. 

Exits: 

1. To the message writer phase, $$BMSGWR, 
if an alternate drive is not available. 

2. To the Job Control open phase, 
$$BJCOPT, to open the alternate 
assignment. 

3. To the logical IOCS module if a unit 
exception occurs while writing a 
tapemark. 

Method: This phase closes the active tape 
output file by writing a tapemark and by 
rewinding and unloading the tape. The 
alternate device is determined, if 
specified, or an exit is made to the 
message writer phase, $$BMSGWR. If an 
alternate is not specified, or not 
available, the operator can mount a new 
tape on the same drive and continue 
processing. 



Upon entry into the $$BCMT07 
determines if the no rewind opt 
specified in job control switch 
(byte 5 8 in the communications 
the option is not specified, a 
written and a test determines i 
exception bit is on in the CCB 
byte 4) . If the bit is not on, 
switching is not required. In 
the tape is backspaced over the 
tapemark written and control is 
the logical IOCS module via an 



a test 
ion is 

byte JBCSW2 
region) . If 
tapemark is 
f the unit 
(bit 7 of 

alternate 
this case, 

last 

returned to 
SVC 11. 



If the unit exception bit in the CCB is 
on, alternate switching is required. The 
tape is rewound and unloaded and an SVC 22 
is issued to seize the system (that is, to 
disable multiprogramming operation) . 

Note: Additional information concerning 
SVC 22 and the functions of the LUB, PUB, 
and JIB tables is found in the IBM 
System/360 Disk Operating System, 
Supervisor and Physical and Logical 
Transients Program Logic Manual, listed in 
the Preface to this publication. 



Magnetic Tape Files 71 



The address of the Logical Unit Block 
(LUB) entry is calculated and the pointer 
to the Physical Unit Block (PUB) entry is 
obtained from the first byte of the LUB 
entry. The address of the PUB assigned to 
the LUB is calculated , and the PUB mode 
byte (byte 5) is saved for later use. 

The second byte of the LUB entry 
contains a pointer to an entry in the Job 
Information Block (JIB) table if any JIB f s 
are specified (chained) for the LUB. If 
there is an alternate PUB assigned, it is 
stored in a JIB. The first JIB in the 
chain is examined for a stored alternate 
PUB. If the JIB does not contain an 
alternate PUB, the next JIB in the chain is 
checked. When a stored alternate 
assignment is found, the pointer to that 
PUB is obtained from the JIB and inserted 
into the first byte of the LUB. Any 
remaining JIB's are scanned and updated. 
The standard PUB assignment is stored in 
the last JIB in the chain. 

After the alternate assignment is 
checked for availability, the mode byte 
saved from the standard PUB is inserted 
into the alternate PUB. The $$BCMT07 phase 
concludes by issuing an SVC 22 to release 
the system (restore multiprogramming 
operation) , and phase $$BJC0PT is fetched 
to open the alternate assignment. 

If an alternate assignment is not found, 
or not available, initialization to print 
message 4121A takes place. 



$$BOMT0M and $$BOMTQW: Tape Open Message 

Writers Chart LE 



Note: The tape open message writer phases 
$$BOMT0M and $$BOMT0W perform the same 
function. The two phases differ only in 
•the messages printed and the calling 
phases. 



Objective: To print messages to the 
operator and analyze the operator's 
response to a particular message. 

Entry: 

Phase $$BOMT0M — from tape open phase 
$$BOMT01 

Phase $$BOMT0W — from tape open phases 

$$BOMT02, $$BOMT03, $$BOMT04, $$BOMT05, 
$$BOMT06. 

Input : Pointer, received from an open 
routine, to indicate the desired message. 



Exi ts: 

1. To the calling open routine or to the 
Open Monitor ($$BOPEN), if a legal 
response to the message is received, or 

2. To CANCEL if no 1052 is available, or 
if the response is EOB 
(end-of-communication) or illegal. 



$$BCMTQM Messages : 

4110A NO VOL1 LBL FOUND 

4112A VOL SERIAL NO. ERROR 

4117D NO TM FOUND ON READBK 

4118D FILE ID ERROR, READBK 

4119A FILE UNEXPIRED 

41201 TAPE POSITIONED WRONG 

4123D WRONG POSITN, READBK 

41241 TOO MANY UHL'S 

4144A 1600 BPI TAPE MOUNTED 

41511 HDR1 LBL INFORMATION 
$$BOMT0W Messages : 

4 111 A NO VCL1 LBL FOUND 

4112A VOL SERIAL NO. ERROR 

4113D NO HDR1 LBL FOUND 

4114A FILE SEQ NO. ERROR 

4115A SERIAL NO. ERROR 

4 116 A VOLUME SEQ NO. ERROR 

4132D ERROR IN FILE ID 

4133D ERROR IN HDR LBL 

41511 HDR1 LBL INFORMATION 

4 8831 INVALID LOGICAL UNIT 

Note: Message 48831 is issued by any tape 
open/close phase in which this error is 
encountered. 

Method: The message writer phases $$BOMT0M 
and $$BOMT0W print message and interrogate 
responses. 

The calling phase passes the following 
information to the message writers: 

• Register 0. The number of the desired 
message. 
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• Register 12. The BYPASS reply return 
address. 

• Register 13. The NEWTAP reply return 
address. 

• Register 14. The IGNORE, RETRY, VOLUME 
SERIAL NO. reply, or the information 
type message return address. 

• The last two bytes in the name of the 
phase returned to. 

Each message contained in the message 
writer phases consists of four sections: 

1. Option byte. Indicates the action to 
be taken after printing the message or 
the valid responses. 

Bit = Automatic terminate (cancel) . 

Bit 1 = IGNORE. 

Bit 2 = NEWTAP. 

Bit 3 = RETRY. 

Bit 4 = BYPASS. 

Bit 5 = Information message (no 
response required). 

Bit 6 = Volume serial number- 
Bit 7 = Print TLBL = XXXXXX. 

2. Displacement byte. Contains 
displacement, in bytes, from the start 
of the label to the field (s) to be 
printed. 

3. Length byte. Contains the length, in 
bytes, of the label information to be 
printed. 

4. Message- 

A message writer phase assembles and 
writes the required message, and receives 
and analyzes the response received from the 
operator. The phase then passes control to 
the proper open phase or to the cancel 
routine. If control is returned to an open 
phase, bit 4 of byte 89 in the 
communications region is set to indicate to 
the open phase that entry is made on a 
return from a message writer phase. 



$$BMSGWR: Tape Open/Clos e Mess age 
Writer Chart LF 



Objective: To print messages to the 
operator and analyze the operator* s 
response to a particular message. 



Entry: From tape Open/Close phases: 
$$BOMT05 
$$BCMT01 
$$BCMT02 
$$BCMT03 
$$BCMT07 



Input: Pointer, received from the calling 
phase, to indicate the desired message. 



Exits: 

1. To the calling phase if a legal 
response to the message is received, or 

2. To CANCEL if no 1052 is available, or 
if the response is EOB 

( end-of -communication) , or is illegal. 

3. To $$BJCOPT if entered from tape close 
phase $$BCMT07. 



Messages : 

4117D NO TM FOUND ON READBK 

4119A FILE UNEXPIRED 

4 121 A NO ALTERN DRIVE ASSGN 

41221 EOV ENCOUNTERED 

4125D VOL1 LBL FOUND 

41261 EOV ENCOUNTERED 

4130A EOF OR EOV INQUIRY 

4131D BLOCK COUNT ERROR 

4140A NO ALTERN DRIVE ASSGN 

Note: Messages not requiring printing of 
label information may also be passed to the 
$$BMSGWR phase. 

Method: The $$BMSGWR routine is used for 
message writing and response interrogation. 

The calling routine passes the following 
information to the $$BMSGWR routine: 

• Register 0. The number of the desired 
message. 

• Register 12. The RETRY reply return 
address. 

• Register 13. The NEWTAP or EOV reply 
return address. 
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• Register 14. The IGNORE or EOF reply, 
or the information type message return 
address. 



• The last two bytes in the name of the 
phase returned to. 

Each message contained in this phase 
consists of four sections: 

1. Option byte. Indicates action to be 
taken after printing the message or 
valid response (s). 

Bit = EOV or EOF 

Bit 1 = IGNORE 

Bit 2 = NEWTAP 

Bit 3 = Double message 

Bit 4 = RETRY 

Bit 5 = Information message (no 
response required) 



Bit 6 = System unit possible and CANCEL 
not legal response 



Bit 7 



Leave DTF blank. 



2. Displacement byte. Contains 
displacement, in bytes, from the start 
of the label to the field (s) to be 
printed. 

3. Length byte. Contains the length, in 
bytes, of the label information to be 
printed. 

4. Message. 

The $$BMSGWR message writer phase 
assembles and writes the required message 
and receives and analyzes the response 
received from the operator. The phase then 
passes control to the proper open phase or 
to the cancel routine. If control is 
returned to an open phase, bit 4 of byte 8 9 
in the communications region is set to 
indicate to the open phase that entry is 
made on a return from a message writer 
phase. 
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DEVICE INDEPENDENT FILES 



Device independent files are those files 
defined by either a DTFCP macro or DTFDI 
macro. 

The DTFCP macro defines files used by 
IBM compilers: COBOL, FORTRAN and PL/I. 

The DTFDI macro defines files assigned 
to the device independent system units 
SYSRDR r SYSIPT, SYSPCH, and SYSLST. The 
DTFDI macro and its associated DIMOD macro, 
therefore, provide DOS Assembler users with 
the same capabilities extended by DTFCP. 



COMPILER FILES 

Compiler (CP) files are files provided 
specifically for IBM internal programs such 
as COBOL, FORTRAN, and PL/I. These files, 
defined by a DTFCP macro, provide limited 
device independence. Because this file 
definition does not conform to standards 
established for other logical IOCS 
component and is tested for use only by IBM 
internal programs, it is not documented in 
any Systems Reference Library publications. 

Some of the differences between CP 
components (DTFCP and CPMOD) and other 
LIOCS components are: 

1. No provision for separate assembly. 

2. Error recovery not the same. 

3. The DTFCP table is not 
self-initializing; that is, the user 
must initialize the table if the file 
is reopened. 



DTFCP Macro 



A DTFCP macro instruction can be used for 
each file that has fixed, unblocked 
records, and limited device independence. 
When the file is opened, a channel program 
for reading/writing on a particular device 
is built in the DTFCP table area (Figures 
23, 24, and 25). Only the following 
devices can be accessed by DTFCP: IBM 
1442, 1443, 1403, 2540, 2400 series, 2501, 
2520, 1404 (continuous forms only), 1445, 
2311, and 2314. 

The DTF table generated at assembly time 
is initialized by the DTFCP open phase 



according to the device type. The device 
type is found by the open phase by checking 
the device type set in the PUB table entry. 
After it is found, the proper indicators 
are set in the DTF table, and the work 
areas and CCW's are modified. Standard 
labels are not required on tape files. 

The DTFCP header card is followed by a 
series of parameter cards describing the 
file, and specifying symbolic addresses of 
routines and areas used for processing the 
file. Because keyword parameters are 
specified, the parameter cards may appear 
in any order. This group of cards 
generates the necessary logical IOCS DTFCP 
tables during assembly. 

The parameter cards following the DTFCP 
header card have keyword entries in the 
operand field. All cards used in the DTFCP 
macro instruction, except the last, have 
continuation punches in column 72. 



Filename : This is the first entry in a 
DTFCP macro instruction. It assigns a 
symbolic name to the file, which appears in 
all I/O macro statements referencing this 
file. The symbolic name of the file is in 
the name field, and DTFCP is in the 
operation field. 



DEVADDR=S YSxxx : This parameter specifies 
the symbolic unit to be associated with the 
file. If DEVADDR=SYSPCH, the DTF is 
generated to include error recovery 
procedures for the IBM 2540 and 2520 punch 
units. 



IOAREAl=name : The I/O area to be used by 
the file is defined by an address 
expression. 



IOAREA2=name: 



If two I/O areas are needed 



for overlapped GET/PUT processing, this 
parameter is required. 

IOREG=(n) : For input files, this parameter 
specifies the general purpose register (n) 
into which IOCS inserts the address of the 
next logical record available for 
processing. For output files, IOCS inserts 
the address of the area where the user can 
build the next logical record. Any 
register 2-12 may be specified. The same 
register may be used for different files. 

This parameter must be specified 
whenever two I/O areas are used. 
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RECSIZE=n: For fixed-length records, this 
parameter specifies the number of 
characters in the record- I/O routines use 
this factor for checking record length. If 
this entry is not specified, the maximum 
record length of 81 bytes is assumed. 

TYPEFLE=INPUT or OUTPUT: This parameter 
defines whether the file is an input or 
output file. From this specification, IOCS 
creates the appropriate channel program for 
this file. If this entry is not specified, 
an input file type is assumed. 

EOFADDR=name ; This parameter defines a 
problem program address to which IOCS 
branches on an end-of-file condition. This 
entry must be supplied if TYPEFLE= INPUT. 
The user must perform any necessary 
end-of-file processing; for example, issue 
a CLOSE macro. 

DISK=YES, NO or omitted: If the DISK= 
parameter is omitted, a tape system is 
assumed, and the same DTF table (Figure 25) 
is generated as in the tape system. If the 
DISK= parameter is present, the disk 
resident system is assumed. If DISK=YES, a 
DTF table (Figure 23) is generated that 
supports any device including the IBM 2311 
and 2314. If DISK=NO, a DTF table (Figure 
24) is generated for a disk resident system 
that supports a device other than DASD. 

IOPTR=YES or omitted: If YES is specified, 
the I/O area address must be put into 
register before a GET or a PUT is issued. 
The module inserts the contents of the 
register into the data address portion of 
the CCW and proceeds as in the case of one 



I/O area. The parameter must be included 
if a variable I/O area is required. 

RDCNLY=YES or omitted: If YES or blank, 
the file uses a reentrant CP logic module. 
Unless RDONLY is omitted, the problem 
program must provide the logic module with 
the address of the unique 72-byte, 
doubleword aligned, savearea for the file. 
This address is suppled in general register 
13 before a logical IOCS imperative macro 
is issued to the file. 



CHARACTERISTICS OF DTFCP FILES 



1. Only fixed unblocked records formats 
are supported. 

2. Forward read only is supported. No 
read backwards is permitted. 

3. Employs standard physical IOCS error 
recovery procedures. 

4. Control character (ASA) is always 
required for printer and punch files. 

5. GET and PUT are supported. 

6. Multivolume output of SYSLST and SYSPCH 
on tape is supported. 

7. Variable I/O area is supported if IOPTR 
is specified. For example, any area 
pointed to by register when a GET or 
PUT is issued is considered the I/O 
area. 
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r t- 

| Bytes | 



T" 

Bits| 



Function 



0-15 
16 



17-19 
20 

21 



22-28 
29 

30-35 
36-41 

36-37 
38 
39 
40 

41 

42 



0-1 

2 

3 

4 
5-7 



L X- 

Figure 23. 



CCB. 

Not used. 

COBOL open; ignore option. 

Not used. 

DTF table address constants relocated by OPENR. 

Not used. 

Logic module address. 

DTF type X"32 f except in the case of disk assigned 
to units SYS000 to SYSnnn. In this case, a DTFCP 
open phase changes it to X'20'. 

Open indicators: X f 02 f input, X"00' output, except 
for tapes assigned to SYS000 to SYSnnn when X'OO' = 
input and X'08 f = output. 

X"08 f DISK=YES indicator for other than Version 1. 

1 = No rewind, = Rewind for Versions 2.1 and 3. 

Filename (see byte 29). 

Last byte of filename except in Version 3. Version 
3 device type code: 
X'OO' = 2311 
X'01 - = 2314 

File address for disk. 

Volume serial number if labeled output tape (present 
only after open) . 

Volume sequence number (DASD) , Versions 1 and 2. 

Open switch. 

Sequence number of current extent. 

Sequence number of last extent, or X f 80" if 1442 
punch. 

X'80" indicates request for standard label tape 
OPEN. 

X'20" device is a DASD. 

X f 10* device is a tape. 

X f 08 f device is a printer. 

X f 04" device is a punch. 

X f 02* device is a reader. 



DTFCP: 



DISK=YES (Part 1 of 3) 
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T" 

Bits| 



j Bytes | 

\- + 

43 



Function 



44 



45-47 
48-51 
52-53 
54-57 
58-64 
65-67 
68-71 
72 

73 
74-75 

76-80 

81 

82-83 



X'F3 f device is a DASD. 

X"Fl f device is a reader. 

X'FO" device is other type. 

1 = input, = output. 

1 = eject needed for a reader-punch. = no eject. 

= first pass, 1 = not first pass. 
1=2 I/O areas, 0=1 I/O area. 

1 = 2540 punch. 

1 = SYSLST or SYSPCH. 

1 = SYSLST or SYSPCH on output tape. 

1 = TLBL is present and tape is labeled. 

IOAREA2 address. 

X^OOOOOOO'. 

Lower head limit. 

Extent upper limit. 

BBCCHHR seek address. 

EOF address. 

Control bucket CCHH. 

Number of records per track for output, number of 
records per track + 1 for input. 

X'OO' for output, X f 01" for input. 

X'20" for output, X'lS* for input for DASD. 
X'OOOO' for nondisk device. 

CCHHR for count field. 

Key length. 

Data length. 



Figure 23. DTFCP: DISK=YES (Part 2 of 3) 
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r t t- 

| Bytes | Bits | 

-+- 



Function 



84-87 j 

I 

I 

88-1111 

I 
112-119) 



| Instruction to load user I/O area address to I/O 
| register. 

I 

| Seek, search, TIC CCW's. 

I 

| CCW for DASD input and first CCW for DASD output. 

j This CCW can be used for other devices if unit is 

not a DASD. 



End-of-table if DTF is defined for an input file. 



120-127) 

I 
128-151| 

±- 



| Second CCW for output. 

I 

| Verify CCW's for output. 



End-of-table if DTF is defined for output file and DEVADDR does not 
equal SYSPCH. 



h 



152-159) 

I 
160-167 | 

I 
168-231| 



2540 punch error recovery CCW 1. 
2 540 punch error recovery CCW 2. 
Reserved. 



| ± x 

When the CP open initializes the table and determines that the 
device is a 2540 punch, the following bytes in the table are 
changed: 
h 



30 

32-35 
48-55 
56-63 
64-71 
72-151 
152-231 



X'FF' indicator to DTFCP open phases and logic 
module. 

Instruction to load user I/O area to I/O register. 

CCW. 

2540 punch error recovery CCW 1. 

2540 punch error recovery CCW 2. 

8 0-byte card image, savearea 1. 

8 0-byte card image, savearea 2. 



Figure 23. DTFCP: DISK=YES (Part 3 of 3) 
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r t~ 


T 




| Bytes | 
L ±_ 


Bits| 
j. 


Function 


r r 

J 0-15 j 


T 


CCB. 


1 16 | 


0-1 | 

2 1 

3 1 

4 I 
5-7 | 


Not used. 

COBOL open; ignore option. 

Not used. 

DTF table address constants relocated by OPENR. 

Not used. 


| 17-19 | 




Logic module address. 


1 20 | 




DTF type X f 32' except in the case of tape assigned 
to units SYS000 to SYSnnn. In this case, a DTFCP 
open phase changes it to X'lO'. 1 


1 21 | 




Open indicators X'02" input, X f 00" output (except 
for tapes assigned to SYS000 to SYSnnn when it is 
X f 00 f input, X s 08" output). 


| 22-28 | 




Filename (see byte 29). 


1 29 | 




Reserved for future use in Versions 2.1 and 3. Last 
byte of filename in Versions 1 and 2. 


1 30 | 




X f FF f indicator to DTFCP open, and logic. 


1 31 | 




Reserved for future use. 


| 32-35 | 




Instruction to load user's I/O area address into I/O 
register. 


| 36-39 | 




Reserved for future use. 


I 40 | 




X^O' if 1442 punch. 


1 41 1 




X^O' 


1 42 | 




X'lO' device is a tape. 
X f 08" device is a printer. 
X'04 f device is a, punch. 
X - 02 f device is a reader. 


1 43 | 




X'Fl 1 device is a reader or tape. 
X f F0 f device is other type. 



Figure 24. DTFCP: DISK=NO (Part 1 of 2) 
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Bytes 



Bits! 



Function 



44 



j 1 = input, = output. 



I 



45-47 
48-55 



1 = eject needed for a reader-punch. 
| 1 = not first pass, = first pass. 
| 1 = 2 I/O areas, 0=1 I/O area. 
| 1 = 2540 punch. 
| 1 = SYSLST or SYSPCH. 
| 1 = SYSLST or SYSPCH on output tape. 
j Reserved for future use. 

I 

| I0AREA2 address. 

I 

| ccw. 



= no eject. 



End-of-table is 
equal to SYSPCH 



DTF is defined as output file and DEVADDR is not 



T" 

56-63 | 

I 
64-71 | 

I 
65-67 | 



I— 



2540 punch error recovery CCW 1. 
2540 punch error recovery CCW 2. 
EOF address, input only. 



End-of-table if DTF is defined as input file. 

8 0-byte card image, savearea 1. 
8 0-byte card image, savearea 2. 



72-151| 



"T- 
I 
I 



152-231) 

x 



*DTF type X^O* found in DOS LIOCS Version 1 only. 



Figure 24. DTFCP: DISK=NO (Part 2 of 2) 
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r 1 

Input or output table generated when the parameter DISK=parameter is 
omitted from the DTFCP macro (Tape Resident System Type) . 



T T" 

Bytes | Bits | 



H 



Function 



0-15 
16 



17-19 

20 



21 

22-28 

29 

30 

31 

32-35 

36-41 
36-39 
40 

4i 

42 



0-1 
2 
3 
4 

5-7 



CCB. 

Not used 

COBOL open; ignore option. 

Not used. 

DTF table address constants relocated by OPENR. 

Not used. 

Logic module address. 

DTF type X"31 f except in the case of tape assigned 
to units SYS000 to SYSnnn. In this case DTFCP open 
phase changes it to X'10'. 

1= no rewind 
0= rewind 

Open indicators X'02' input, X'00' output (except 
for tapes assigned to SYS000 to SYSnnn when it is 
X'OO* input, X'OS' output). 

Filename. 

Reserved for future use. 

X'FF* indicator to DTFCP open, and logic. 

Reserved for future use. 

Instruction to load user's I/O area address into I/O 
register. 

Volume serial number if labeled output tape. 

Reserved for future use. 

X'80' if 1442 punch. 

X f 20' 

X"10 f device is a tape. 

X'08 f device is a printer. 

X g 04' device is a punch. 

X f 02* device is a reader. 



Figure 25. DTFCP: DISK= parameter omitted (Part 1 of 2) 
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r t T" 

| Bytes | Bits | 
|. + + . 



Function 



43 



44 



45-47 
48-55 



h 




1 
2 
3 
4 
5 
6 
7 



X f Fl" device is a reader or tape. X'FO' device is 
other type. 

1 = input, = output. 

1 = eject needed for a reader-punch. = no eject. 

1 = not first pass, = first pass. 

1=2 I/O areas, 0=1 I/O area. 

1 = 2540 punch. 

1 = SYSLST or SYSPCH 

1 = SYSLST or SYSPCH on output tape. 

1 = TLBL specified and tape is labeled 

IOAREA2 address. 

CCW. 



h 



End-of -table if DTF is defined as output file and DEVADDR is not 
equal to SYSPCH. 



56-63 j j 2540 pMnch error recovery CCW 1. 

I I 
64-71 | | 2540 punch error recovery CCW 2. 

I I 
65-67 | | EOF address, input only. 
j. x -± 

End-of- table if DTF is defined as input file. 

y T T 

72-151 | | 8 0-byte card image, savearea 1. 



152-231| 

JL- 



j 8 0-byte card image, savearea 2. 
-± 



Figure 25. DTFCP: DISK= parameter omitted (Part 2 of 2) 



CPMOD Macro 



The CPMOD macro is used with IBM internal 
programs only. Therefore, the CPMOD macro 
is not documented in any Systems Reference 
Library publications — see Compiler Files . 



The CPMOD macro generates nine different 
logic modules. Each CPMOD logic module is 
flowcharted and described in detail. 
Output modules where RETRY=NO is specified 
are not flowcharted because they are the 
same as the other output modules except for 
the 2520 and 2540 punch error recovery 
procedures. 

The GET-PUT logic modules for two I/O 
areas, with IOPTR and RETRY omitted handles 
all other cases except those modules where 
IOPTR=YES is specified. 

The parameters of the CPMOD macro are 
keyword parameters. Because keyword 
parameters are specified, the parameter 
cards after the header card may appear in 
any order. This group of cards generates 



the necessary logical IOCS CPMOD during 
assembly. 

The parameter cards following the CPMOD 
header card have key entries in the operand 
field. All cards used in the CPMOD macro 
instruction, except the last, have 
continuation punches in column 72. 



NAME : If NAME is specified , it is 
generated as the CSECT name of the module. 
No other entry points are generated. 



TYPEFLE=INPUT o r OUTPUT : If INPUT is 
specified, IOCS generates a module to 
handle input only. If OUTPUT is specified, 
IOCS generates a module that handles both 
input and output. If the TYPEFLE parameter 
is omitted, OUTPUT is assumed. 



IOAREA2=YES or O mitted : If YES is 
specified, the generated logic module 
provides automatic switching between two 
I/O areas. If this parameter is omitted, 
one I/O area is assumed. 
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IOPTR=YES or Omi tted : If YES is specified, 
the I/O area address is assumed to be in 
register 0. This parameter allows the user 
to change the I/O area address used with 1 
I/O area. If IOPTR is specified in CPMOD, 
it must also be specified in the DTFCP 
macro. 

RETRY=NO or Omitted: If NO is specified, 
the IOCS error recovery procedures for the 
IBM 2520 and the IBM 2540 punch devices are 
eliminated from the generated module. If 
the parameter is omitted, the 2520 and the 
2540 punch error recovery procedures are 
included on the generated module. When the 
file is defined for input, this parameter 
is ignored. 

DISK=YES or Omitted: If YES is specified, 
a module is generated that supports the 
2311 and 2314 devices. If omitted, the 
module generated is the same as in the tape 
resident system. 

RDONLY=YES or Omitted: If omitted, the 
module generated by the CPMOD macro is not 
reentrant. To be reentrant, general 
register 13 is used to point to a 72-byte, 
doubleword aligned, savearea unique to the 
particular task using the module. In this 
way several tasks can asynchronously use 
the same module if each task provides its 
own savearea. 



CPMOD: 



GET Macro, Two I/O Areas Chart MA 



All user's registers are saved upon 
entry into CPMOD and are restored when 
control is returned to the problem program. 



CPMOD: GET Macro, One I/O Area Chart MB 



Objective: To read a logical record. 

Entry: From a GET macro issued by the 
problem program. 

Exit: To the problem program or to the 
user's EOF routine. 

Method: This routine makes a logical 
record available to the user in the I/O 
area. When an end-of-file is sensed, a 
branch to the user's EOF routine is made. 
The routine is similar to the GET two I/O 
areas routine except the logic to handle 
I/O area switching is not included. 



CPMOD: GET Macro, IOPTR=YES Chart MC 



Obje ctive: To read a record into the I/O 
area pointed to by register (IOPTR). 

Entry: From a GET macro expansion. 

Exit: To the problem program or EOF 
address. 



Objective: To cause two I/O areas to be 
loaded from an input device and to allow 
overlap. 

Entry: From a GET macro expansion issued 
by the problem program. 

Exit: To the problem program, or to user's 
EOF routine. 



Method: When the parameter IOPTR=YES is 
included, the CP module generated allows 
the user to use any area in main storage 
(other than a storage protected area) as an 
I/O area. The I/O area is pointed to by 
the address loaded into register 0. With 
this exception, this routine is the same as 
the GET with one I/O area. 



Method : This routine is similar to the PUT 
two I/O areas routine, except it does not 
contain the logic to support a printer or 
punch. It contains only the logic 
necessary to retrieve records from an input 
file. 

During the first pass, both I/O areas 
are read into. Overlap is made possible by 
allowing the second I/O area to be filled 
while the first one is being processed. A 
wait for I/O complete is issued to allow 
the previous read to be completed before 
processing the data of that area. 



CPMOD: PUT Macro, Two I/O Areas Charts 

MD-MF 



Objective: To write a logical record with 
overlap. 

Entry: From a PUT macro expansion, or from 
an SD workfile close. 

Exit s: 

1. To the problem program. 



When an end-of-file is sensed, the 
user's registers are restored and a branch 
to the user's EOF routine is made. 



2. To the user's EOF address, if EOF 

occurs on an output device other than a 
printer. 
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3. To $$BCMT07 if EOF occurs on an output 
tape assigned as SYSLST or SYSPCH. 

4. To $$BERRTN error recovery routine, if 
an error occurs on a 2540 or 2520 
punch. 

5. To $$BERRTN if the upper extent is 
exceeded on a DASD file. 



3. To $$BCMT07 if EOF occurs on an output 
tape assigned as SYSLST or SYSPCH. 

4. To $$BERRTN error recovery routine if 
an error occurs on a 2540 or 2520 
punch. 

5. To $$BERRTN if the upper extent is 
exceeded on a DASD file. 



Method: 



If entered for the first time, the 



PUT routine performs an I/O operation 
immediately. (After the initial entry, 
this I/O operation is bypassed. ) When the 
I/O operation is complete, the routine 
checks for an EOF condition. If an 
end-of-file is detected on a unit record 
device (other than a printer) , control is 
passed to the user's end-of-file routine. 
If an end-of-file is detected on a magnetic 
tape device assigned to SYSPCH or SYSLST, 
the PUT routine fetches phase $$BCMT07 to 
determine if an alternate device is 
available. If it is not necessary to 
handle an EOF condition, the addresses of 
the two I/O areas are exchanged, another 
I/O operation is performed, and control is 
returned to the problem program. 

The I/O subroutine first tests to 
determine the device type, and appropriate 
action is taken. If the device is a DASD, 
a routine is initialized to determine if 
various specified limits have been 
exceeded, and to update the seek address 
and count. The input/output operation is 
performed, and control returns to the 
problem program. 

If an error occurs and the device is an 
IBM 2540 or a 2520 punch, the error 
recovery transient, $$BERRTN, is called. 
When an error recovery is complete, control 
returns to the module. 

Note: If RETRY=NO is specified as a 
parameter in the CPMOD macro, the error 
recovery facility is not present in the 
module. $$BERRTN is also called to cancel 
the job if the upper extent is exceeded on 
a DASD file. 



Objective: To write a logical record. 

Entry: From PUT macro expansion, or from 
an SD workfile close. 

Exits: 

1. To the problem program. 

2. To the user's EOF address if EOF occurs 
on an input device. 



Method: The PUT routine saves the user's 
registers and then checks for various 
devices. If the device is a tape unit, the 
I/O operation is performed immediately. If 
the device is a DASD, the specified limits 
are checked and the seek address and count 
are updated. 

If the device is a printer or punch, the 
ASA control character is picked up and 
converted to System/360 coding. (See 
Appendix F for ASA codes.) 

Next, the specified control operation is 
performed. When the control operation is 
complete, the I/O operation indicated by 
the PUT macro instruction is performed. 
The user's registers are restored and the 
routine returns control to the problem 
program. 

Error and EOF conditions are handled in 
the same manner as described in the PUT 
routine for two I/O areas. 



CPMOD: PUT Macro, IOPTR=YES Charts MJ-MK 



Objective: To write a logical record from 
the I/O area pointed to by register 
(IOPTR) . 

Entry: From a PUT macro expansion or from 
$$B0SDC1 - Close SD Workfile. 

Exits: 

1. To the problem program. 

2. To the user's EOF routine if EOF occurs 
on punch or DASD device. 

3. To $$BCMT07 if EOF occurs on an output 
tape assigned as SYSLST or SYSPCH. 

4. To $$BERRTN error recovery routine if 
an error occurs on a 2540 or 2520 
punch. 

5. To $$BERRTN if the upper extent is 
exceeded on a DASD file. 

Method: When the parameter IOPTR=YES is 
included, the CP module generated allows 
the user to use any area in main storage 
(other than a storage protected area) as an 
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I/O area. The I/O area is pointed to by 
the address loaded into register 0- With 
this exception, this module is the same as 
the PUT with one I/O area. 



DEVICE INDEPENDENT SYSTEM FILES 

Device Independent (DI) system files are 
files assigned to the system logical units 
SYSRDR, SYSIPT, SYSPCH, and SYSLST. The 
files are defined by a DTFDI macro for 
fixed unblocked records on the following 
devices: 

• 1443 Printer 

• 1404 Printer 

• 1442 Reader-punch 

• 1443 Printer 



• 2311 Disk drive 

• 2314 Multiple disk drive 

• 2400 Series magnetic tape drive (7 or 9 
track) - forward read only. 

• 2501 Reader 

• 2520 Reader punch 

• 2540 Reader punch 



DTFDI Macro (Figure 26) 



The DTFDI macro defines the file for device 
independent system units and generates a 
ta£le containing the information necessary 
to describe the file for processing by the 
DIMOD logic module. 
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r T T -. 

I Bytes | Bits | 

|. _ + + 

0-15 I I CCB. 



Function 



16 



17-19 

20 

21 

22-28 
29 

30-35 
36-37 
38 
39 

40 

41 
42 



43 



0-1 

2 

3 

4 
5-7 



Not used. 

COBOL open; ignore option. 

Not used. 

DTF table address constants relocated by OPENR. 

Not used. 

Address of logic module. 

DTF Type = X'33' 

Open/Close indicators - X'02' = input, X"00" = 
output. 

Symbolic filename. 

DASD device indicators 
X , 01 f = 2314 
X'00 f = 2311 

DASD address of Format 1 label. 

DASD volume sequence number. 

Open communications switch - X"08 f 

Sequence number of current extent. 

Sequence number of last extent, or X'80' for 1442 
reader-punch. 

Open indicator = X'20". 

Device type indicators 



0-1 


Unused 


2 


1 = DASD 


3 


1 = tape 


4 


1 = printer 


5 


1 = punch 


6 


1 = reader 


7 


Unused. 



Logic module device indicators 
X f F3 f = DASD device 
X'Fl'" = reader or tape device 
X'FO' = other type device 



Figure 26. DTFDI (Part 1 of 3) 
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r t~ 

| Bytes | 

h +- 



T - 

Bits | 
+ - 



Function 



44 



45-47 
48-51 
52-53 
54-57 
58-64 
65-67 
68-72 
73 

74-75 

76-80 
81 

82-83 
84-87 

88-111 



Logic module option switches 

1 = input; = output. 

1 = eject for RDR-PCH; = no eject. 

1 = not first pass; = first pass. 

1 = two I/O areas; = one I/O area. 

1 = SYSLST/SYSPCH assigned to output tape. 

1 = SYSLST/SYSPCH. 

1 = Tape SYSLST/SYSPCH. 

Reserved for future use. 

Alternate I/O area address. 

Reserved for future use. 

Extent lower head limit. 

Extent upper head limit. 

DASD seek address. 

Users EOF address. 

Control bucket CCHHR. 

Logic module switches 
X'01 8 = input 
X'OO" = output 

Logic module constants 
X f 0020" DASD output 
X*0018 f DASD input 
X'OOOO" Non-DASD devices 

Count field CCHHR. 

Key length. 

Data length. 

Instruction to load IOREG with correct I/O area 
address. 

Seek, Search, TIC CCWs. 



Figure 26. DTFDI (Part 2 of 3) 
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r t 

Bytes 



h 



Bits 



Function 



112-119 
120-127 
128-151 
152-159 
160-167 
168-231 
232-235 



236-239 



Input/output CCW. 

Second output CCW. 

Verify CCWs for output. 

Error CCW1. 

Error CCW2. 

Savearea (64 bytes). 

DC A(WLRERR) if WLRERR=Address . 

B 28(15) if ERROPT= omitted, 

B 25(15) if ERROPT=SKIP. 

B 28(15) if ERROPT=IGNORE. 

DC A(ERROPT) if ERROPT=Address . 

B 0(15) if ERROPT= omitted. 

B 24(15) if ERROPT=SKIP. 

B 28(15) if ERROPT=IGNORE. 



Figure 26. DTFDI (Part 3 of 3) 



DIMOD Macro 



Device independent files provide users of 
DOS Assembler with the same capabilities 
already extended users of COBOL f FORTRAN, 
and PL/I in files defined by the DTFCP 
macro. Like" the CP logic module, the 
device independent module generated by a 
DIMOD macro provides the logic to 
accomplish the logical IOCS functions of 
GET and PUT. 



DIMOD: 



GET Macro, 1 I/O Area Charts NA-NB 



Objective: To read the next sequential 
logical record into an input area specified 
by the user. 



From a GET macro expansion. 




• To the next sequential instruction 
following the GET macro expansion in 
the problem program after a record is 
read into the input area. 



• To the user's EOF routine if an 
end-of-file condition occurs. 



• To cancel via an SVC 50 if an error 
occurs and the ERROPT parameter is not 
specified in the DTFDI macro. 



Method: The GET routine first determines 
the device type specified in the DTFDI 
taJDle. If the device is DASD, the routine 
validates the record number and updates the 
CCHHR seek address if necessary. The 
routine then issues an SVC and waits for 
the I/O operation to finish. If the device 
is DASD, the record number is increased by 
one at this time in preparation for the 
next GET. 



A check is made for error and 
end-of-file conditions. Errors are handled 
in the manner specified by the user in the 
DTFDI macro parameters. An end-of-file 
condition causes the GET routine to exit to 
the address of user's EOF routine instead 
of to the address of the next sequential 
instruction in the problem program. 
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DIMOD: 



GET Macro, 2 I/O Areas Charts NC-ND 



Objectives : To read the next sequential 
logical record into an input area specified 
by the user, and to provide processing 
overlap by alternately reading records into 
one of the specified input areas and then 
into the other. 



Entry: 
Exit: 



From a GET macro expansion. 



• To the next sequential instruction in 
the problem program following the GET 
macro expansion. 

• To the user's EOF routine if an 
end-of-file condition occurs. 

• To cancel via an SVC 50 if an error 
occurs and the ERROPT parameter is not 
specified in the DTFDI table. 

Method : The GET routine, when two I/O 
areas are employed, functions in the same 
manner as a GET with one I/O area. The 
difference between the two routines is the 
utilization of two I/O areas by alternately 
exchanging the addresses of the two areas 
each time a GET macro is issued. 
Therefore, to the user it appears that the 
record is available in the same input area 
for every GET. 



• To the user's WLR or ERROPT routine, if 
specified in the DTFDI macro 
parameters, to handle other error 
conditions. 

Method: The PUT routine determines the 
device type and selects the proper I/O 
operation to write the record to the file: 

• If the device is a reader or a magnetic 
tape, an SVC is issued directly. 

• If the device is a DASD, the number of 
the record to be written is checked and 
the CCHHR seek address is updated, if 
necessary, before the SVC is issued. 

• If the device is a printer or punch, 
the control code is determined, 
converted to System/360 code if 
necessary (refer to Appendix F) , and 
the control function is performed. 
When the control function is complete, 
an SVC is issued to write the record. 

After the record is written, tests 
determine if a unit exception or error 
condition occurred. If a unit exception 
occurred, the following action is taken: 

• For printers, the unit exception is 
ignored. 

• For output tapes assigned to either 
SYSLST or SYSPCH, phase $$BCMT07 is 
fetched to determine the availability 
of an alternate device. 



DIMOD! PUT Macro, 1 I/O Area Charts NE-NG 



For all other devices, the address of 
the user's EOF routine is obtained from 
the DTF table and used as the return 
address from the PUT routine. 



Objective: To write the next sequential 
logical record to the file from a user 
specified output area. 

Entry: From a PUT macro expansion in the 
problem program. 



Other error conditions are handled as 
specified by the user in the DTFDI macro 
parameters. 



Exit: 



DIMOD: 



PUT Macro, 2 I/O Areas 



Charts 



• To the next sequential instruction in 
the problem program following the PUT 
macro expansion after the record is 
written to the file. 

• To phase $$BCMT07 if an EOF condition 
is reached on an output tape assigned 
to either SYSLST or SYSPCH. 

• To phase $$BERRTN if a punch error 
occurs. 



NH-NK 



Objectives : To write the next sequential 
logical record to the file from a user 
specified output area and to provide 
overlap through the use of two I/O areas. 

Entry : From a PUT macro expansion in the 
problem program. 

Exit: 



To the user's EOF routine if an EOF 
condition is reached on devices other 
than SYSLST or SYSPCH assigned to an 
output tape. 



• To the next sequential instruction in 
the problem program following the PUT 
macro expansion after the record is 
written to the file. 
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• To phase $$BCMT07 if an EOF condition 
is reached on an output tape assigned 
to either SYSLST or SYSPCH. 

• To the user*s EOF routine if an 
end-of-file condition is reached on 
devices other than SYSLST or SYSPCH 
assigned to an output tape, 

• To phase $$BERRTN if a punch error 
occurs. 

• To the user's WLR or ERR0PT routine, if 
specified in the DTFDI macro 
parameters, to handle other error 
conditions. 

Method : The PUT routine, when two I/O 
areas are employed, functions in the same 
manner as a PUT with one I/O area. The 
difference between the two routines is in 
alternately exchanging the addresses of the 
two I/O areas each time a PUT macro is 
issued. Even though two areas are used, 
the exchange of addresses makes it possible 
for the user to insert the record to be 
written at the same address for each PUT 
macro issued. 



$$BERRTN: Punch Erro r Recovery Chart PA 



Objectives: To attempt a recovery from a 
punch error condition on either a 2520 or 
2540 punch, or to cancel the job when an 
extent is exceeded while writing on a DASD. 

Entry: From an output DIMOD, or an output 
CPMOD if RETRY=NO is not specified. 

Exit : To the calling routine after the 
error is corrected or to the message writer 
phase $$B0MSG1 if an extent is exceeded. 

Method: Phase $$BERRTN first determines 
the type of device on which the error 
occurred. 

If a punch error occurred on a 2520, the 
message 40001 is printed to indicate that a 
retry is being made and the card in error 
is repunched. 

If a punch error occurred on a 2540, the 
card in error is repunched, the retry 
message 40001 is printed, and the card 
following the error card is repunched. (It 
is necessary to repunch the card following 
the error card because it is in the process 
of being punched when the punch error is 
detected and both cards are stacker 
selected.) 

Control returns to the calling routine 
via an SVC 11 when the punch error is 
corrected. 




If an error occurred on a 2311 or 2314 
DASD device, preparation is made to print 
message 48871 and the message writer phase 
$$B0MSG1 is fetched. 



INITIALIZATION AND TERMINATION 



Device independent files are opened by the 
same logical transients used to open 
compiler files. The close routine for a 
DTFDI file provides for re-initialization 
of the DTF table. This procedure removes 
from the DTFDI files the restriction on 
reopening imposed on DTFCP files. 



$$BQCP01_; Open Device Independent Files - 

Phase 1 Charts Q A-QC 



Objective: To open DOS device independent 
files defined by either DTFCP or DTFDI 
(Version 1 DTFCP excluded) . 



From the Open Monitor. 



To $$BOCP02 if the DTF is a tape 
resident system type DTFCP. (This DTF 
table type is generated for DOS if the 
DISK= parameter is omitted from the 
DTFCP macro.) 



2. To $$B0CPT1 if the device type is tape 
and the file type is input. 

3. To $$B0CPT2 if the device type is tape 
and the file type is output. 

4. To $$BOPEN if the device type is DASD 
or additional files remain to be 
opened. 

5. To the problem program if no more files 
remain to be opened. 

6. To $$B0MSG1 to issue the error message, 
4 88 31 INVALID LOGICAL UNIT. 

Method : This routine is called by the Open 
Monitor when the file is found to be a 
DTFCP or DTFDI type (Version 1 DTFCP 
excluded). Because the logic modules for 
both file types provide for device 
independence, this phase is needed to 
determine the device type associated with 
the logical unit. The PUB is located for 
the logical unit and the DTF is initialized 
according to the device type (refer to 
Figures 23, 24, and 25). 

The routine at the label UNTRCP 
initializes an I/O area. This routine 
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adjusts the addresses of the I/O area in 
the CCW and the alternate I/O area to 
bypass the control character when it is 
determined that the device is a printer or 
punch. This routine also reinitializes the 
DTF table if the device is a reader-punch. 

The LDIOREG routine initializes the 
user's I/O register. If the device is 
tape, a check determines if Job Control has 
already opened the device. If the file is 
open and if there are more files to open, 
the Open Monitor, $$BOPEN, is fetched. If 
no more files remain to be opened, control 
returns to the problem program. If the 
file has not been opened, $$B0CPT1 is 
called to open the input files, and 
$$B0CPT2 is called to open the output 
files. 

If the device is a 1403 printer with the 
Universal Character Set (UCS) a set mode 
command is given to suppress data checks. 

If device type cannot be determined, an 
error message is issued and the job is 
canceled. If the device is a tape drive 
and found to be file-protected, an error 
message is issued and the operator may 
either insert a ring in the tape reel or 
cancel. 



$$BOCPQ2: Open Device Independent Files 

Phase 2 Charts QD-QF 



Objective: To open the DTFCP tables of the 
tape resident system type. 

Note: A tape resident type DTFCP table is 
generated for DOS if the DISK= parameter is 
omitted from the DTFCP macro. 

Entry: From $$BOCP01, or from $$B0MSG1. 

Exit s: 

1. To $$BOPEN, if additional files remain 
to be opened. 

2. To the problem program , if no more 
files remain to be opened. 

3. To $$BOMT06, if the device type is tape 
and the CP type is input. 

4. To $$BOMSGl, to print the following 
messages : 

48831 INVALID LOGICAL UNIT 

4884D FILE PROTECT RING NEEDED 

Method : This phase functions in the same 
manner as $$BOCP01, except when it is 
entered from a message routine. If this is 



the case, a sense command is issued and a 
test is made for file protect. If the file 
is not file-protected, $$BOMT06 is fetched. 
If it is, a message is printed, via 
$$B0MSG1. 



$$B0CP11: Open DTFCP (Version 1 Only) 

Phase 1 Charts QG-QJ 



Objective: To open Version 1 DTFCP tables 
for disk resident systems. 

Entry; From the Open Monitor, or from 
$$B0MSG1. 



Exits: 
1 



To $$BOCP12, if DTFCP is Version 1 tape 
resident system type (this DTFCP table 
type is generated for DOS if the DISK= 
parameter is omitted from the DTFCP 
macro) . 

To $$BOPEN, if the device type is DASD 
or additional files remain to be 
opened. 

To the problem program, if no 
additional files remain to be opened. 



4. To $$BOMT06, if the device type is 
tape. 

5. To $$B0MSG1, to put out the following 
messages: 

48831 INVALID LOGIC UNIT 

4884D FILE PROTECT RING NEEDED 

Method: This phase is called by the Open 
Monitor when the file is found to be a 
Version 1 DTFCP table type. The phase 
performs the same functions as $$BOCP01, 
except that it applies only to Version 1. 



$$BOCP12: Open DTFCP (Versi on 1 Only) 
Phase 1 Charts QK-QL 



Objec tive : To open Version 1 DTFCP tables 
of the tape resident system type. 

Note: A tape resident type DTFCP table is 
generated for DOS if the DISK= parameter is 
omitted from the DTFCP macro. 



Entry: 
Exits: 



From $$B0CP11, or $$B0MSG1. 



1. To $$BOMT06, if device type is tape. 



92 IBM S/360 DOS Logical IOCS, Volume 2 



2. To $$BOPEN, if additional files remain 
to be opened. 

3. To the problem program, if no more 
additional files remain to be opened. 

4. To $$B0MSG1, to put out the following 
messages : 

48831 INVALID LOGIC UNIT 

4884D FILE PROTECT RING NEEDED 

Method; This phase is called by $$B0CP11 
when the file is found to be a TOS Version 
1 DTFCP. The phase performs the same 
functions as $$BOCP02, with the exception 
that it applies only to Version 1. 



$$B0CPT1: Open DTFCP and DTFDI Input Tape 
Charts QM-QS 



Objective: To open input tape files. 

Entry; From either $$BOCP01 (if the file 
is defined by a DOS DTFCP or DTFDI and the 
device is a tape) or $$B0CPM1 (after a 
message has been issued and a non-cancel 
reply has been received) . 

Exits: 

1. To the Open Monitor, $$BOPEN, if more 
files remain to be opened. 

2. To the problem program, if no more 
files remain to be opened. 

3. To the message writer, $$BOCPMl, when 
an error condition is encountered. 

Method: This routine performs various open 
procedures after determining: 

1. If the user has provided a TLBL (or 
TPLAB) card. 

2. The position of the tape with respect 
to its loadpoint. 

3. Whether the tape contains standard 

labels or a tapemark. 



volume files or multifile volumes can be 
opened by this routine. 



^§B0CPT2j Open DTFCP and DTFDI Output 

Tape Charts QT-QY 



Objective: To open output tape files. 

Entry: From either $$BOCP01 (if the file 
is defined by a DOS DTFCP or DTFDI for 
output and the device is a tape) or 
$$B0CPM2 (after a message has been issued 
and a non-cancel reply has been received). 

Exits: 

1. To the Open Monitor, $$BOPEN, if more 
files remain to be opened. 

2. To the problem program, if no more 
files remain to be opened. 

3. To the message writer, $$B0CPM2, when 
an error condition occurs. 

Method: This routine performs various open 
procedures after determining: 

1. If the user has provided a TLBL (or 
TPLAB) card. 

2. The position of the tape with respect 
to its loadpoint. 

3 . Whether the tape contains standard 
labels or a tapemark. 

If an unlabeled output tape file is to 
be opened, this routine determines if the 
tape has a tapemark. If the tape has a 
tapemark, it is retained. If the tape 
lacks a tapemark, no tapemark is written. 

If a standard labeled output tape file 
is to be opened, this routine first checks 
the expiration date. If label information 
from a TLBL (or TPLAB) card has been 
provided, a new standard HDR1 label is 
written on tape. If label information has 
not been provided, a dummy HDR1 label is 
written on tape. No additional standard 
header or user header labels are written. 



If an unlabeled input tape file is to be 
opened, this routine skips the tapemark, if 
present, and positions the tape at the 
first data record. 

If a standard labeled input tape file is 
to be opened and a TLBL (or TPLAB) card has 
been provided, this routine uses the label 
information supplied to check the HDR1 
label. It skips the additional header* 
volume, and user labels and positions the 
tape at the first data record. Only single 



$$B0 CPT1: C los e DTFCP or DTFDI Tape 

Files Charts Q Z-RB 



Objective : To close DTFCP and DTFDI input 
and output tape files. 

Entry : From the Close Monitor after it is 
determined that the file is either a DTFCP 
DOS or TOS type or DTFDI type, and the 
device is a tape. 
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Exits: To the Close Monitor if additional 
files remain to be closed, to the problem 
program if no additional files remain to be 
closed, or to the message writer, $$B0MSG1, 
when an incorrect TLBL (or TPLAB) card 
image record is found. 

Method: This routine performs various 
close procedures after determining whether 
the rewind option has been specified, 
whether a TLBL (or TPLAB) card has been 
provided, whether the tape file is input or 
output, and whether the tape has an E0F1 
trailer label. 

If the file is an input tape, this 
routine checks to determine if the rewind 
option has been specified. If the rewind 
option has been specified, the tape is 
rewound* If it has not been specified and 
the tape has standard trailer labels, all 
standard labels and user trailer labels are 
bypassed and the tape is positioned to the 
first record after the tapemark which 
follows the set of trailer labels. 



5. 



on the card preceding the last card. 
Then, any error detected on the last 
card is corrected. 

For a DTFCD file with one I/O area 
where the device is a 2540 punch, any 
error detected on the last card is 
corrected. 

For a DTFCD file with two I/O areas 
where the device is a 2520 punch, any 
error detected on the last card is 
corrected. 

For a DTFCD file with one I/O area 
where the device is a 2520 punch, no 
error recovery is needed and the 
routine takes the proper exit. 

For a DTFCP and DTFDI files (one or two 
I/O areas) where the device is a 2540 
punch, error recovery is performed 
first on the card preceding the last 
card punched. Then, any error detected 
on the last card is corrected. 



If the file is an unlabeled output tape, 
this routine writes a tapemark and rewinds 
the tape if the rewind option has been 
specified. If the file is a standard 
labeled output tape, this routine writes a 
tapemark. An EOFl trailer label is built 
and written on tape followed by two 
tapemarks. If the rewind option has been 
specified, the tape is rewound. If it has 
not been specified, the tape is backspaced 
one record. 



6. For a DTFCP and DTFDI files (one or two 
I/O areas) where the device is a 2520 
punch, any error on the last card is 
corrected. 

In all cases, whenever an error card is 
repunched correctly, the message 40001 
RETRY is printed on SYSLOG to inform the 
operator that the error was retried. 



$$BCLOSP: 



Punch File Close Charts RD-RG 



$$B0CPM1 and $$BOCPM2: DTFCP/DTFDI Message 
Writers Charts RH-RK 



Objective: To close DTFCP, DTFDI, and 
DTFCD punch files and recover possible 
errors occurring when the last card in the 
file is punched. 

Entry: From the Close Monitor, $$BCLOSE, 
to the entry point BEGINRTN. 

Exits: To the Close Monitor $$BCLOSE if 
there are additional files to be closed. 
If no additional files remain to be closed, 
return is to the problem program. 

Method : This routine first determines the 
device type. If the device is a 1442 punch 
or a 1442 reader-punch, the routine exits 
to the Close Monitor or to the problem 
program if no additional files remain to be 
closed. Depending upon the file type and 
whether there are one or two I/O areas, the 
following actions are taken: 

1. For a DTFCD file with two I/O areas 
where the device is a 2540 punch, an 
error, if it has occurred, is corrected 



Objec tive : To write messages on SYSLOG and 
to process operator responses to the 
messages issued. 

Entry : From the DTFCP and DTFDI tape open 
routines, $$B0CPT1 and $$BOCPT2. 

Exits: 

1. For certain messages, automatic job 
termination. 

2. For CANCEL response or no 1052, job 
canceled. 

3. For IGNORE, NEWTAP, RETRY responses or 
information-type messages, the next 
phase to be executed is fetched. 

$$B0CPM1 Message s: 

4112A - VOL SERIAL NO. ERROR 

4113D - NO HDR1 LBL FOUND 
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411UA - FILE SEQ NO, ERROR 
U115A - SERIAL NO. ERROR 
4116A - VOLUME SEQ. ERROR 
4132D - ERROR IN FILE ID 
4133D - ERROR IN HDR LABEL 
$$BOCPM2 Messages : 

4110A - NO VOL1 LBL FOUND 



4112A - VOL SERIAL NO. 



4119A - FILE EXPIRED 



ERROR 



4144A - 1600 BPI TAPE MOUNTED - $$BOCPM2 

4184D - NEED FILE PROTECT RNG 

Method; Both $$BOCPMl and $$BOCPM2 message 
writer phases perform the same function and 
differ only in the messages written. Each 
phase writes, on SYSLOG, the appropriate 
message for the information it receives 
from the calling phase. The calling phase 
supplies as input a message number, a 
return address for each legal response, and 
the name of the next phase to be fetched. 
After the correct message and label 
information is written on SYSLOG, the 
message writers analyze and process the 
operator response and fetch the next 
appropriate phase. 



$$B0MSG1; Disk Open Error Message Writer, 

Phase 1 Charts RL-RM 



Objectives: To initialize the message 
output area, SYSLOG CCB and CCW's and to 
fetch the second phase of the message 
writer, $$BOMSG2. 

Entry: 

• From the DASD VTOC display phase, 
$$BODSPW. 

• From a DASD open or close phase. 

• From the DTFCP open phases $$BOCP01, 
$$BOCP02, $$BOCPll, or $$B0CP12. 

Exit: To phase 2 of the Disk Open Error 
Message Writer, $$BOMSG2. 

Method: The calling phase supplies the 
following information to the message 
writer: 

• Register contains the last four 
characters of the phase name requesting 
the message. On cancel messages. 



register does not have to be 
initialized. $$BO is assumed for the 
first four characters of the phase 
name. 

• Register 2 contains the address of the 
DTF table for the current file. 

• Register 3 contains the message code 
(in binary) for the message to be 
printed. This code is converted to the 
last two digits of the message number 
(XX in the example 4nXXI) . 

• Transient region +1185 contains the 
numeric decimal value assigned to the 
various open/close phases for message 
numbering. (n in the example UnXXI.) 

• Transient region +1000 contains the 
start of the CCB. 

The message writer overlays the first 
8 88 bytes of the transient region. 
Therefore, any information that the calling 
phase needs to save is located beyond that 
point. 

This phase first saves the last four 
characters of the phase name requesting the 
message. It initializes the SYSLOG message 
output area with the organization type 
numeric code, DTF filename, symbolic unit, 
and constant. It builds the SYSLOG CCWs 
for writing the message and reading the 
response and determines if the required 
message is in this phase of the message 
writer. If it is not in this phase, the 
routine determines in which overlay phase 
the message is located (either $$BOMSG3, 
$$BOMSG4, $$BOMSG5 or $$BOMSG6) and fetches 
$$BOMSG2 to load the required overlay 
phase. 



$$BO MSG2: Disk Open Error Me ssage Writer, 
Phase 2 Charts RN-RQ 



Obje ctive : To issue an error message to 
the operator, read the operator's reply (if 
a 1052 is assigned to SYSLOG) or exit to 
the phase that requested the message (after 
insuring the validity of the operator's 
response). Also, to cancel the job either 
by operator request or if the message type 
indicates termination of the job. 



Ent ry: From phase 1 of the Disk Open Error 
Message Writer, $$B0MSG1. Entered at 
MSGR0UT2. 

Exit : To the VTOC dump phase, $$BOVDMP, to 
phase 1 of the VTOC display routine, 
$$BODSPV, or to the DASD Open/Close phase 
initiating the message (if a cancel was not 
encountered) . 
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Method : $$B0MSG1 supplied the following 
information to this phase: 

• Register 1 contains the name (last four 
characters) of the message overlay 
phase to fetch if the required message 
appears in some phase other than 
$$B0MSG1. 

• Register 3 contains the address of the 
message to be written on SYSLOG. 

This phase determines the message type. 
It can be either a file overlap pack, wrong 
pack, or other. 

For a file overlap type, the last 
character of the message is initialized to 
a ' D', the CCW is initialized to write the 
44-byte file key, and the file overlap 
switch is set to NO-OP. The file overlap 
switch set to NO-OP allows a test for 
deleting an unexpired file later in the 
routine. 

For wrong pack type, the message is 
initialized with the pack number and the 
wrong pack switch is turned on. This 
switch is interrogated later in the routine 
to test if the operator has mounted the 
next pack. 

Next, the routine determines if the 
message to be written on SYSLOG is in main 
storage. If the message is not in main 
storage, the message overlay phase 
containing the required messages is loaded 
into main storage. The message overlay 
phases consist of $$B0MSG3, $$B0MSG4, 
$$B0MSG5 and $$BOMSG6. These phases 
contain messages only. The message is then 
moved to the SYSLOG output area and an SVC 
is issued to type the message and read 
the reply. 

If the message indicates the job is not 
to be canceled, the routine determines if 
the user wants a VTOC display. If he does 



want a VTOC display, the routine issues an 
SVC 2 to fetch $$BODSPV, the DASD VTOC 
Display phase. If the user does not want a 
VTOC display, the routine tests for a 
D-type message. 

If yes, the message return indicator is 
set f the address of the next phase name is 
retrieved, and a SVC 2 is issued to fetch 
the return phase. If the message is not a 
D-type, the routine tests the file overlap 
switch and the wrong pack switch as 
previously mentioned. During this portion 
of the routine, a B for bypass, or a D for 
delete is stored in the transient region 
+1186 for use by the calling phase. 

The message writer issues an illegal 
response message for the following 
conditions : 

1. Operator reply of IGNORE for a D-type 

message. 

2. Message for index sequential file. 

3. Equal file ID message. 

4. No extent to be bypassed. 

5. Next pack not mounted. 

If the job is to be canceled, a test 
determines if the job control open switch 
(in communications region) is on. If so, a 
SVC 11 is issued to return to Job Control. 
If the switch is not on, the routine checks 
to determine if a request has been made for 
a VTOC dump. If yes, a SVC 2 is issued to 
call the VTOC Dump transient, $$BOVDMP. If 
a VTOC dump has not been requested, a SVC 6 
is issued and the job is canceled. 

The following message lists show the 
code (passed via register 3) together with 
the last two digits and action indicator of 
the associated message number. For 
reference purposes, the text of the message 
is also included. 
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(Message 
Code 




1 
2 
3 

4 

5 
6 
7 
8 
9 
15 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



Message 
Number 



44A 
55A 
40A 
41A 
42A 
33A 
66A 
59A 
47A 
A 
84D 
38D 
39D 
08D 
D 
D 
001 
Oil 
021 
031 
041 
051 
061 
071 
08D 
091 
Oil 
Oil 
021 
031 
041 



Message 



H 



OVERLAP ON UNEXPRD FILE 

WRONG PACK, MOUNT nnnnnn 

EXTENT OVERLAP ON ANOTHER 

EXTENT OVERLAPS ON VTOC 

NO MATCHING EXTENT 

EQUAL FILE ID IN VTOC 

1 TRACK USER LBL EXTENT 

INVALID EXTENT 

EXTENTS NOT ON SAME UNIT 

Reserved for A type msg. 

NEED FILE PROTECT RING 

USER HDR LBL IS NOT STD 

USER TRL LBL IS NOT STD 

NO UTL0 FILE MARK FOUND 

Reserved for D type msg. 

Reserved for D type msg. 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO RECORD FOUND 

NO LABEL SPACE IN VTOC 

NO FORMAT 1 LABEL FOUND 

NO FORMAT 2 LABEL FOUND 

NO FORMAT 3 LABEL FOUND 

NO FORMAT 4 LBL IN VTOC 



r 1 

| Message 
| Code 

L 


r 1 

Message 
Number 




r 

Message 




r 






| 37 


061 


NO STANDARD VOL1 LABEL 


| 38 


411 


EXTENT OVERLAPS ON VTOC 


1 39 


461 


DISCONT INDEX EXTENTS 


| 40 


511 


SYSUNITS NOT IN SEQUENCE 


| 41 


521 


DISCONT TYPE 1 EXTENTS 


| 42 


541 


DSKXTN ENTRY TABLE FULL 


| 43 


621 


NO PRIME DATA EXTENT 


| 44 


451 


TOO MANY EXTENTS 


1 45 


491 


DATA TRACK LIMIT INVALID 


| 46 


591 


INVALID EXTENT 


| 47 


601 


NO EXTENTS, ALL BYPASSED 


| 48 


611 


INVALID DLBL FUNCTION 


| 49 


631 


LOAD FILE NOT CLOSED 


1 50 


801 


INVALID FILE TYPE 


1 51 


811 


NO LABEL INFORMATION 


1 52 


831 


INVALID LOGICAL UNIT 


1 53 


901 


NO AVAILABLE JIB 


1 54 


871 


SYS FILE EXTENT EXCEEDED 


1 55 


351 


DELETED WORKFILE LABEL 


1 56 


341 


CURRENT FILE LBL DELETED 


1 57 


401 


EXTENT OVERLAP ON ANOTHER 


1 58 


361 


NO MORE AVAIL/MATCH 
EXTENT 


1 59 


481 


SYSIN/SYSOUT UNSUPPORTED 


| 60 


701 


LST EXTENT CD NOT INDX 
VOL 


1 61 


711 


EXTENT INFO NEEDED 


| 62 


721 


MOD AND DTF INCOMPATIBLE 


1 63 


581 


NO EXTENT FOR OUTPUT FILE 



L J. ± J 
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FLOWCHARTS 



EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



*****A1 ********** 



* PROCESSING * 

: *B2 ; 

***************** 



A GROUP OF PROGRAM INSTRUCTIONS 
THAT PERFORM A PROCESSING 
FUNCTION OF THE PROGRAM. THE 
LABEL, IF ANY, IS SHOWN ABOVE 
THE BLOCK. 



***** * 

* * * BB-D4, INITL1 

* * BC-B2, OPENX4 
* * BL-J1, ENDPRN 



*B2 
IF ANY ADDITIONAL EXPLANATION 
IS REQUIRED, ITS LOCATION ON 
THE CHART IS IDENTIFIED BY AN 
ASTERISK AND THE BLOCK ID. 



************* 



SUBROUTINE 



***************** 



DESCRIPTION OR TITLE OF A ROUTINE 
THAT IS DETAILED ON ANOTHER 
FLOWCHART. THE STARTING LABEL OF 
THE ROUTINE AND THE FLOWCHART ID 
APPEAR ABOVE THE STRIPE. 



.X* ERROR ROUTINE * 

* * 

* * 
***************** 



*****Oi******* 



AN INSTRUCTION, OR GROUP OF 
INSTRUCTIONS, THAT CHANGES 
PORTIONS OF A ROUTINE OR 
INITIALIZES A ROUTINE FOR 
GIVEN CONDITIONS. 



*****D4********** 



*************** 



**** 

* * 

* 1 * 



**E1******* 



*********** 



A GROUP OF OPERATIONS NOT 
DETAILED IN THE FLOWCHARTS 
IN THIS MANUAL, SUCH AS 
USER'S ROUTINES. 



**E5******* 

* * 
* 

.X* USER ROUTINE 
* 

* * 
*********** 



******F1 *********** 
* INPUT/OUTPUT * 



*********** 



ANY FUNCTION OF AN INPUT/OUTPUT 
DEVICE OR PROGRAM, USUALLY 
BRANCHING TO AN I/O ROUTINE TO 
PERFORM THE FUNCTION STATED IN 
THE BLOCK. 



*****F5******* 



*. DECISION 



POINTS WHERE THE PROGRAM 
BRANCHES TO ALTERNATE PROCESSING, 
BASED UPON VARIABLE CONDITIONS 
SUCH AS PROGRAM SWITCH SETTINGS 
AND TEST RESULTS. 



*BL * 

* A1 * 

* * 



****H1********* 



*********** 



****H4********* 

* * 

* END OF JOB * 

* * 
*************** 



ON-PAGE CONNECTOR. AN ENTRY 
FROM, OR AN EXIT TO, ANOTHER 
FUNCTION ON THE SAME FLOWCHART. 
THE NUMBER IN THE CONNECTOR 
IDENTIFIES THE CORRESPONDING 
ENTRY OR EXIT ON THE CHART. 



***** 
*BD * 
* D4* 



OFF-PAGE CONNECTOR. AN ENTRY FROM, 
OR AN EXIT TO, A GIVEN POINT ON 
ANOTHER FLOWCHART. THE CHARACTERS 
IN THE CONNECTOR IDENTIFY THE 
CHART AND BLOCK. THE CORRESPONDING 
LABEL, IF ANY, IS PLACED OUTSIDE 
THE CONNECTOR. FOR MULTIPLE ENTRIES 
AND EXITS, AN ASTERISK APPEARS IN 
THE CONNECTOR AND THE CHARACTERS 
ARE LISTED NEARBY. 
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CHARTS 



Chart 01. Magnetic Tape Open Routines 



Standard Label 
Input Forward 



Standard Label 
Input Backwards 




Nonstandard Label and 
Unlabeled Input/Output 



( $$BOMT01 J ( $$BOMT02 J f $$BOMT03 J f $$BOMT05 J f $$BOMT06 ) 



1 .Check volume 

label 

2 .Check standard 

header 1 label 



1 .Read standard 

trailer labels 

as header 

labels 
2. Compare to 

TLBL 



1 .Check expiration 
date of header 
labels 

2. Write new 
header label 




Check user labels. 
Exit to user routine 
and return 



Post file open 



Post file open 



1 .Set up to write 

user labels 
2. Exit to user 

label routine 

and return 



1 .Write tapemark 
2. Post file open 



1 .Set mode for 

7 or 9 -track 

2 .Test for read 

backward 

3 .Test for rewind 

option 



1 .Set mode for 

7 or 9 -track 
2. Test for rewind 

option 
3. Read volume 

label and headei 
4. Check expiration 

date 




1 .Read tapemark 
if unlabeled 

2. Exit to user 
routine to read 
nonstandard 
labels if present 



• Exit to user rou- 
tine to write nor 
standard labels 
if specified 
2 .Write tapemark 
if specified 




* File type is determined by Open Monitor. 



(Return to A 

Open Monitor J 



Charts 99 



Chart 02. Magnetic Tape Close and EOF/EOV Routine 



Note: User Issues CLOSE macro to handle EOF 
for output files. 




* File type determined by Close Monitor 



100 IBM S/360 DOS Logical IOCS, Volume 2 



• Chart AA. $$BOUR01: Open Unit Record (Section 1 of 2) 



ENTRY FROM 

OPEN MONITOR 

SSBOPEN 



».*»C2*****»»» 

LOCATE LUB 

ENTRY FOR 

LOGICAL UNIT 

USING SYSIR 

MACRO 



IGNORE .* TEST ». ASSIGNED 

*. PUB PTR .* 

». IN LUB .« 



**E1**»**»* 

SET 

IGNORE 

BIT IN DTF 

•ON' 



•UNASSIGNED 



*#*»*E2***«**«»* 
•INITIALIZE FOR 
•MESSAGE NUMBER 

* AND BLANK OUT 

* FILENAME 

* MSG 4883 



.#***B4»**»»*»*» 

* LOAD WORK 
•REGISTERS WITH 

* I/O AREA ADDR 

* AND CONSTANTS 
•USED TO ADJUST 



.•CONTROL*. 
CHARACTER 
SPECIFIED 

. IN DTF . 



ADJUST 
I/O AREA 
ADDRESS 



X 


NOCTLCHR .«. 


»«E3*»»»*»* 


E4 ». 


RESET » 


.* ARE 


IGNORE * 


.» RECORDS 


BIT IN DTF » 


». VARIABLE 


OFF * 


». LENGTH 



#.*F2»*«** 
SVC 2 

FETCH 
$$BOMSGl 



IS THIS 

A READER 
. FILE 



ADJUST 
I/O AREA 
ADDRESS 



ARE THERE «. NO 
TWO I/O .*... 

. AREAS .» 



GET PIB TA8LE 

ADDRESS AND 
DEVELOP SAVE 
AREA ADDRESS 



H3 *. 


»»*»*H4»«**»»» 


.* DOES *. 


• STORE I/O 


*DTF CONTAIN*. NO 


< * AREA ADDRESS 


LOAD I/O REG .*... 


* IN I/O REG 


*. INSTRUCTN.» 


» SAVE AREA 










• YES 






...xl 


X 


X 






» 1 » 


• AB » 


• * 


• B2* 












CHKPRTR 
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• Chart AB, $$BOUR01: Open Unit Record (Section 2 of 2) 



*AA-G3,H3,hi» 



IS THIS 

A PRINTER 

DTF 



C2 *. 

.»IS THIS*. 
•UNASSIGNED 

OR TO BE 
*. IGNORED . 



LOCATE 
PUB FOR 
DEVICE 



.* DOES * 

PRINTER 

HAVE UCS 

. FEATURE 



*.»«F2******* 
MODIFY * 
USERS CCB 
FOR SET MODE 
CCW 



#«»«G2******* 
MODIFY MODE* 
CCW TO USER * 
CHOICE, ALLOW 
OR BLOCK DATA* 
CHECKS * 



TMGDEIO X 

* svc n * 

TO SET 
* USER MODE * 




X 

CU**"*. 

.** I/C **. NO 
*. COMPLETE .*... 


X 
*»C5**** 

** SVC 7 

* WAIT 



RESTORE 

USERS 

CCB 



SETOPNBT X 


.*. 


*»»**FH********** 


F5 *. 






* TURN ON * 


.* IS IT 


* OPEN BIT * 


*. UNIT RECORD 


» IN DTF * 


*.FILE TYPE. 












»YES 










...» *A * 




* El* 








IGNORE X 


UPDATE X 


»****GU********** 


»*»*#G5******* 






* ADJUST * 


* STORE 


* PRINTER IN * 


* UPDATED 


* OPEN DC LIST * 


* POINTER 



* D2* 
START 



TURN 

SUPERVISOR 

BIT OFF 



SVC U 

RETURN TO 

USER 



SVC 2 

FETCH MONITOR 

$$BOPEN 
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►Chart BA. CDMOD: CNTRL Macro 



ENTRY FROM 

CNTRL MACRO 

EXPANSION 



CDMOD MACRO 

PARAMETER 

OPTION - DECISION 

DOES NOT APPEAR 

IN AN ASSEMBLY 

LISTING. 



B4 *. 

TYPEFLE= 



* STORE CODE IN * 
•CONTROL COMMAND* 

* CODE IN DTF * 

* BYTE 23 « 



* STORE CONTROL 

* CODE IN CONCMD 

* IN THE DTF 



X 


IJCMBXXX X 


• ••Eit******* 


#»»»«E5»»*»»»»»* 


TURN ON * 




EJECT BIT * 


* STORE CODE IN 


IN CCW » 


•CONTROL COMMAND 


COMMAND CODE • 


• CODE IN DTF 


* 


* BYTE 23 



MOVE CONTROL 
CODE INTO CCW 
COMMAND CODE 



RETURN TO 
PROBLEM 
PROGRAM 



SVC 

CONTROL 

OPERATION 



RETURN TO 
PROBLEM 
PROGRAM 



Charts 103 



•Chart BB. CDMOD: GET Macro (Section 1 of 3) 



ENTRY FROM 
GET MACRO 
EXPANSION 



COMBINED ». YES 
FILE .*.... 

»B2 .* 



•♦.♦•A3********* 
•EXCHANGE ADDRS 

* OF IOAREA1 

* AND IOAREA2 

* IN THE DTF 

* TABLE 



I0AREA2 

= YES 

*A5 



*A5 
CDMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



«B2 
DTFCD MACRO 
PARAMETER 
OPTION. 



."UNIT * 




.* EOF *. 




.* bXCEPTION 


*. YES 


.»(/» OR /+) * 


NO 


*. BIT ON IN 




X*.IN SYSIPT OR . 


• X. 


». CCB 




*. SYSRDR .* 




















»NO 




• YES 










s 




X 


a 










X 




*BC ♦ 




JCCOXXX ... 




* B3* 




C4 *. 
















.» EOF 


*. YES 






». (/*) IN 








*. IOAREA 


* 







CONTROL *. 

YES OR ASA .* 

*A5 .» 



»«»*E1*»»*»»*» 

MOVE CONTROL 

CODE TO CCW 

AND RESTORE 

CONTROL CODE 

TO NORMAL 



TURN ON 

FIRST TIME 

SWITCh 



IJCRAXXX/ 
IJCRVXXX 
•.•«**Fli 



EXECUTE 
CHANNEL 
PROGRAM 



ROONLY 

OMITTED 
*A5 



*»«F3*»»»***» 

RESTORE 

REGISTER 14 

(RETURN 

ADDRESS) 



* SAVE REG 13 AND* 

* LOAD REG 13 * 

* WITH ADDRESS * 

* OF WORKAREA * 



*«.»«D5»»»**.**» 
•SAVE REGISTERS 
*12 AND 13 AND 

* SAVE AREA 

* ADDRESS 



»**«E5***»**»* 

LOAD 

REGISTER 13 

WITH ADDRESS 

OF WORKAREA 



»«««F5**»»**.*« 
MOVE CONTENTS 
OF IOAREA TO 
WORKAREA AND 
RESTORE REGS 
12,13, AND 14 







< 






*h«»«G4*«»* 








MOVE CONT 


ENTS 






Of- IOAREA 


TO 






WORKAREA 


AND 






RESTORE REGS 




* 


13 A:ND 


14 


» 


: ........... 


«•.. 






xlx. 







MOVE ADDRESS 

OF IOAREA2 

TO CCW 



***J1***»»«» 

SAVE 

REGISTER 14 

(RETURN 

ADDRESS) 



LOAD 

REGISTER 14 

WITH ADDRESS 

OF IOAREA1 



ICAREA2 

= YES 

*A5 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



RETURN TO 
PROBLEM 
PROGRAM 
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►Chart BC. CDMOD: GET Macro (Section 2 of 3) 



CDMOD MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



TURN OFF 

FIRST TIME 

SWITCH 



LOAD REG 14 

WITH ADDRESS 

OF USER'S EOF 

ROUTINE 



.* 2540 *. 
AND CNTRL «. NO 
YES OR ASA .*... 



E3 *. 
.* IS * 

» COMMAND 

CODE X'C2' 
*. READ 



**»*F3*»*»*»* 

SET COMMAND* 

CODE TO X«02« 

READ, FEED, 

SELECT 

STACKER * 



EXIT TO 
USER'S EOF 

ROUTINE 



SVC 
EXECUTE * 
CHANNEL 
PROGRAM * 




*********** 




Ix 




X 

H3* **. 

I/O *'«. NO 
COMPLETE .* 


* SVC 7 ** l 
...X» WAIT « 



*»«J3*****»* 

EXIT TO 

USER'S EOF 

ROUTINE 
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• Chart BD. 



CDMOD : 



GET Macro (Section 3 of 3) 



CPMOD MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



NO .* READ « 
...•.COMMAND CODE 
*. (X'C2'J .* 



STORE CCW IN 

BYTES 60-67 

OF THE DTF 

TABLE 



•»*#*D1********** 
*SET CCW COMMAND* 
*C0DE TO X«09» , * 
*PFR PUNCH, FEED,* 

* SELECT * 

* STACKER * 



»E1****** 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



SVC 7 

WAIT 

FOR I/O 

COMPLETE 



SVC 

READ 

CARD 



* SVC 7 

WAIT FOR 
*I/0 COMPLETE 



MOVE 

BLANKS INTO 

I0AREA2 



DTFCD MACRO 

PARAMETER 

OPTION. 



WORKA 

= YES 

»A3 



LOAD ADDRESS 
OF I0AREA1 
INTO REG 14 



LOAD EOF 

ROUTINE 

ADDRESS 

INTO REG 1U 



***G3******* 

EXIT TO 

USER'S EOF 

ROUTINE 



LOAD ADDRESS 
OF WORKAREA 
INTO REG 13 



MOVE ADDRESS 

OF I0AREA1 

TO CCW 



MOVE INPUT 

BLOCKSIZE AND 

COMMAND CODE 

TO CCW 



#»*J2**»**»* 

INSERT 

ADDRESS OF 

I0AREA2 

INTO CCW 



* MOVE CONTENTS * 
*0F I0AREA1 INTO* 

* WORKAREA * 



RESTORE 
REGISTERS 
13 AND 14 



»*K5******* 

RETURN TO 

PROBLEM 

PROGRAM 
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> Chart BE. 



CDMOD : 



PUT Macro (Section 1 of 4) 



##»A1««««*»« 

ENTRY FROM 

PUT MACRO 

EXPANSION 



» WORKA *. NO 

OR IOAREA2 .*... 
». = YES .» 
». »A5 .» 



»A5 
CDMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



» FIRST » 

TIME SWITCH 
». ON .« 



*G1«**»«* 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



SAVE 
REGISTERS 
2, 13 AND 1H 



SAVE 

REGISTERS 

11 THROUGH 14 



TURN ON * 




YES .* 


PUNCH 


*. 


FIRST TIME * 






ERROR 




SWITCH » 
























X 

*BG * 
» A5» 


**N0 




X 




IJCPNXXX 


X 




Fl *. 


»**.*F2*******»*» 




F3 * 






» MOVE * 








141+2 *. YES 


* EJECT COMMAND « 




2540 


». NO 


*A5 .* 


..X» CODE TO * 




*A5 




.» 


» CCW * 


*. 




.* 



SAVE CCW 

AND ERROR 

CARD IMAGE 



SAVE 

REGISTERS 

11 THROUGH 14 



2520 

OR 2540 

»A5 



#»»D5*»*»»**» 

STORE 

REGISTER 14 

(RETURN 

ADDRESS) 



SAVE 
REGISTERS 
, 13, AND 14 



Jl * 

1442 



*»»K1*««*»«*« 

RESTORE 

ORIGINAL 

COMMAND 

CODE TO CCW 



PUT ADDRESS 
OF CCW 
INTO CCB 



LOAD RECORD 
LENGTH INTO 
REGISTER 12 
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•Chart BF. CDMOD: PUT Macro (Section 2 of 4) 



YES .« WORKA 
....*. = YES 
*. *F5 



RECFORM ». YES 

= FIXUNB .* 

*F5 .» 



LOAD ADDRESS 
OF I0AREA1 
INTO REG 14 



El ». 

.* CNTRL *. 
.* = YES OR * 

.CNTRL/CTLCHR 



SUBTRACT 1 

FROM ADDRESS 

OF IOAREA1 



LOAD ADDRESS 
OF WORKAREA 
INTO REG 13 



SUBTRACT U 
FROM ADDRESS 
OF IOAREA1 



NO .» WORKA 
...*. = YES 
*. *F5 



LOAD ADDRESS 
OF WORKAREA 
INTO REG 13 



STORE 

RECORD LENGTH 

IN DTF 



LOAD RECORD 
LENGTH INTO 
REGISTER 12 



LOAD RECORD 
LENGTH INTO 
REGISTER 12 



MOVE CONTENTS 
OF WORKAREA 
TO IOAREA1 



CFORM 
IXUNB 
»F5 



PUT LENGTH 

IN CCW 
BYTE COUNT 



SUBTRACT 1 
FROM RECORD 

LENGTH IN 
REGISTER 12 



* PUT ADDRESS 
ft OF WORKAREA 
»IN REGISTER 13 



*F5 
CDMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



CTLCHR 

= ASA 

»F5 



ADJUST 

DATA 
LENGTH 



MOVE 

CTLCHR TO 

CCW 



MOVE CTLCHR 

TO CONCMD 

IN DTF 



SUBTRACT 1 

FROM RECORD 

LENGTH 



PUT LENGTH 

IN CCW 
BYTE COUNT 



RECFORM 

= UNDEF 

*F5 
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•Chart BG. 



CDMOD : 



PUT Macro (Section 3 of 4) 



CTLCHR=W *. 
(SELECT 
. STACKER .* 



* TURN OFF * 
*SELECT STACKER 

* INDICATOR * 



RESTORE 

REGISTERS 

11 THROUGH \k 



» RESTORE 
» REGISTERS 
»12, 13, AND 1 



CALCULATE 

ADDRESS 

OF CCW2 AND 

STORE IT IN 

THE CCB 



* TURN ON « 
"SELECT STACKER 

* INDICATOR * 



* MOVE * 

* CONCMD TO « 
.X*CCW AND RESTORE* 

* CONCMD » 



NO .* * 

...*.IOAREA = YES 
*. *D2 .* 



*»**E1***«**«* 

EXCHANGE 

ADDRESSES OF 

IOAREA1 AND 

IOAREA2 



YES .* * 

X...*. WORKA = YES 
*. *D2 .* 



*D2 
CDMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



**D3****** 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



.* WORKA OR ». YES 

*.IOAREA = YES .* 

*. »D2 .* 



**G1**»*»*» 

CALCULATE 

ADDRESS 

OF I/O 

AREA 



RDONLY 

OMITTED 

»D2 



PUNCH ERROR .» 



SAVE CCW 

AND CARD 

IMAGE 

IN DTF 



RESTORE 
REGISTERS 
, 12, AND 13 



RESTORE 
REGISTERS 
12 AND 13 



RESTORE 

REGISTER 11+ 

(RETURN 

ADDRESS) 



»****K1*»*****»* 
» LOAD USER'S 
»IOREG WITH I/O 
» AREA ADDRESS 
» AND RESTORE 
» REGISTER 14 



****K3******* 

* RETURN TO 

* PROBLEM 
» PROGRAM 



»*K5****** 

SVC 
EXECUTE 
CHANNEL 
PROGRAM 



IJCRTXXX . 
X 

• BE. 
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• Chart BH. CDMOD: PUT Macro (Section 4 of 4) 



•A3 
CDMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



IJCMDXXX 

« MOVE PUNCH 

« COMMAND CODE 

* FROM DTF BYTE 
« 23 INTO CCW 

* *A1 



MOVE ADDRESS 

OF I0AREA2 

INTO CCW 



WORKA 

= YES 

• A3 



STORE 
REGISTERS 
13 AND 14 



MOVE ADDRESS 

OF I0AREA2 

INTO CCW 



MOVE CONTENTS 

OF WORKAREA 
INTO I0AREA2 



RESTORE 
REGISTERS 
13 AND 14 



»*«B4*»#«**»« 

MOVE OUTPUT 

BLCCKSIZE 

TO CCW 

BYTE COUNT 



SVC * 
PUNCH 




•••••*.«••« 








X 

D4***». 

I/O *«. NO 
COMPLETE .* 

'•YES 


• #D5»*»***» '. 

• * SVC 7 *• '. 
...X» WAIT ».... 



MOVE PUNCH 
COMMAND CODE 
FROM DTF BYTE 

23 INTO CCW 



RESTORE 
ORIGINAL CCW 
COMMAND CODE 



» EOF 

DURING 
A GET 



**G4«*»»*»* 

RETURN TO 

PROBLEM 

PROGRAM 



##»G5*»***«* 

EXIT TO 

USER'S EOF 

ROUTINE 



♦ H4 
LOGICAL 
DECISION 
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Chart CA. DTFCN: GET Macro 



****A2* ******** 

* ENTRY FROM * 

* GET MACRO * 

* EXPANSION * 
*************** 



IJ2XXXXX 

*****B2 ********** 

* SET CCW * 

* COMMAND * 

* CODE TO * 

* READ * 

* (X'OAM * 
***************** 



*B3 
DTFCN MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



*****d********** 



MOVE BLKSIZE * 

TO CCW *X 

BYTE COUNT * 
* 


YES .* RECFORM *. 
...*. = UNDEF .* 
*. *B3 .* 
*. .* 




**************** 


*. .* 
*NO 




) 


< 
IJ2PXXXX X 

******D2 *********** 






* SVC * 

READ 

* * 






************* 












X 






E2 *. 
.* *. 


**E3******* 
* * 




.* I/O *. NO 

*. COMPLETE .* 

*. .* 


* SVC 7 * 
...X* WAIT *.... 

* * 




*. .* 


* * 




*. .* 


*********** 



WORKA *. YES 
= YES .*.... 
*B3 .* 



**J2********* 
RETURN TO * 
PROBLEM * 
PROGRAM * 

************* 



PROVIDES A 

WLR INDICATION. 



**** 

* * 

* 1 * 

* * 
**** 



IJ2RXXXX 

*****j 3 ********** 

* SUBTRACT CCB * 
*RESIDUAL COUNT * 

* FROM BLKSIZE * 

* *K2 * 

* * 
***************** 



RECFORM *. YES 
= UNDEF .*.... 
*B3 .* 



*****G4********** 

* * 

* STORE * 

* REGISTERS * 

* 2 AND 3 * 

* * 
***************** 



*****H4********** 

* * 

* MOVE CONTENTS * 

* OF I/O AREA * 

* TO WORKAREA * 

* * 
***************** 



*****J4********** 



***************** 



****K4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*****q 5**** ****** 

* * 

* STORE * 

* REGISTERS * 

* 2, 3 i AND 4 * 

* * 
***************** 



*****H5********** 

* CALCULATE * 

* BLKSIZE AND * 

* MOVE RECORD * 

* TO WORKAREA * 

* * 
***************** 
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Chart CB. 



DTFCN: PUT Macro 



****/\3********* 

* ENTRY FROM * 

* PUT MACRO * 

* EXPANSION * 
*************** 



*B4 
DTFCN MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



IJ2MXXXX 

*****C3 ********** 

* SET CCW * 

* COMMAND * 

* CODE TO * 

* WRITE * 

* (X'09') * 
***************** 



NO .* WORKA 


* 




NO 


* 


RECFORM 


...*. = YES 


.*X... 


* 




= UNDEF 


*. *B4 


.* 






*. 


*B4 


. *. .* 










*. 


*. .* 










*. .* 


**** *YES 










*YES 


* * 












* 3 * 












* * 












**** 












X 










X 


.*. 










.*. 


E2 *. 










E3 *. 


.* * 










* 


NO .* TYPEFLE 


"* 




NO 


.*" 


WORKA 


...*. = OUTPUT 




* 


.. ..* 




= YES 


*. *B4 


.* 






*. 


*B4 



**G1******* 



*********** 



**** 

X 
*****H2********** 

* * 

* STORE * 

* REGISTERS * 

* 2 AND 3 * 

* * 
***************** 



*****j2********** 

* * 

* MOVE CONTENTS * 

* OF WORKAREA * 

* TO IOAREA1 * 



*****K2********** 

* * 

* RESTORE * 

* REGISTERS * 

* 2 AND 3 * 



*****05********** 

* MAKE CCW * 

* BYTE COUNT * 

* EQUAL TO * 

* RECSIZE * 

* *E4 * 
***************** 



*E4 
BYTE COUNT OF 
GENERATED CCW 
EQUALS BLKSIZE 
FOR UNDEFINED 
RECORDS. 



YES .* TYPEFLE = *. 
X..*. INPUT 

*. *B4 .* 



*****F5********** 

* * 

* MOVE CONTENTS * 

* OF WORKAREA * 

* TO IOAREA1 * 

* * 
***************** 



**G4******* 



*********** 



************* 



.* BLKSIZE *. YES 
♦.GREATER THAN .*.... 
*. RECSIZE .* 



WORKA 

= YES 

*B4 



*****K3********** 

* MOVE CONTENTS * 

* OF WORKAREA * 

* TO IOAREA 1 * 

* * 
***************** 







.* TYPEFLE = *. YES 






*. OUTPUT AND .*... 






*. WORKA = .* 






*. YES .* 






*. .* 






*NO 






**** 






* * 






* 4 *. . . 






* * 






**** x • 






.*. 


4******* 




J5 *. 






.* *. 


SVC 7 


* 


NO .* I/O *. 


WAIT 


*X... 


*. COMPLETE .* 



*********** 



****K5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



**** 

* * 

* 3 * 



112 IBM S/360 DOS Logical IOCS, Volume 2 



Chart DA. MRMOD: GET, READ, and CHECK Macros (Section 1 of 3) 



****A1^******** 
ENTRY FROM * 
GET MACRO * 
EXPANSION * 

*************** 



****A2********* 

* ENTRY FROM * 

* CHECK MACRO * 

* EXPANSION * 
*************** 



IJUGETCK .*. 


IJUCHEK X 


Bl *. 


*****B2******** 


.* REAO ♦ . 


* 


.* SWITCH *. NO 


* SAVE 


*. ON IN DTF .*,.... 


* REGISTER 5 



**************** 



*****£ 2 ********* 

* LOAD REG 5 

* WITH THE 

* ADDRESS OF 

* THE CURRENT 

* BUFFER 
**************** 



WAIT 

BIT ON IN 

. BUFFER . 



****A3********* 

* ENTRY FROM * 

* READ MACRO * 

* EXPANSION * 
*************** 



IJUREAD 

*****B3******* 

* TURN READ * 

* SWITCH ON * 

* AND WAIT SWITCH* 

* OFF IN THE * 

* DTF * 
************** 

**** 



*DB-A1,IJUCL0EX 
DB-C5 
DC-F1,F4,G3 



* l 



**** 
IJUINIT X 

*****C3********** 
*INIT. TO CLEAR * 

* DOC. BUFFER * 

* AREA AND TO * 

* SAVE USER'S * 

* REGISTERS * 
***************** 



*****03********** 

* GET ADDRESS * 

* OF CURRENT * 
♦DOCUMENT BUFFER* 

* FROM THE * 

* DTF TABLE * 
***************** 



.* BUFFER *. 
. REAOY FOR . 
♦PROCESSING.* 



.* USER *. 
.* ERROR *. NO 
*. RTN. OPTION .*..) 
♦.SPECIFIED.* 



*****G1 ********** 



***************** 



****Hi********* 

* EXIT TO * 

* USER ERROR * 

* ROUTINE * 
*************** 



*****E2*********+ 



************* 



*****F2********#* 

* LOAD REG 15 * 

* WITH USER * 

* SPECIFIED * 

* RETURN * 

* ADDRESS * 
***************** 



****G2********^ 

* RETURN TO * 

* USER * 

* ADDRESS * 
*************** 



*****H2********** 

* LOAD REG * 

* WITH STARTING * 

* ADDRESS OF *X 

* DOCUMENT ♦ 

* BUFFER AREA * 
***************** 



*****P 3 ********** 

* LOAD REG * 

* WITH THE ♦ 

* ADDRESS OF ♦ 

* THE CURRENT * 

* BUFFER ♦ 
***************** 



*****Q3 ********** 

♦ ADD BUFFER ♦ 

♦ SIZE TO REG ♦ 

♦ TO GET THE ♦ 
*ADDRESS OF THE * 

♦ NEXT BUFFER ♦ 
***************** 



.* END *. 

OF DOC. 

BUF. AREA 

. REACHED . 



IJUCLBUF 

*****B4********** 

♦ CLEAR CURRENT ♦ 

♦ BUFFER AND ♦ 

♦ RESET BUFFER ♦ 

♦ ERROR STATUS ♦ 

♦ * 
***************** 



.♦ IS ♦. 
.♦TRAFFIC BIT*. NO 
♦ON IN DTF (MICR^... 
♦. DEQUEUED). ♦ 



IJUREGAD 

*****D4********** 

♦ LOAD REG ♦ 

♦ WITH COUNT ♦ 

♦ OF BUFFERS ♦ 

♦ USED ♦ 

♦ * 
***************** 



*****E4********** 

♦ SUBTRACT NO. ♦ 

♦ OF LIOCS GETS ♦ 
♦FROM NUMBER OF ♦ 

♦ BUFFERS USED ♦ 

♦ IN REG ♦ 
***************** 



*****F4* ********* 

♦ * 

♦ RESET LIOCS ♦ 

♦ GET COUNT ♦ 

♦ TO ZERO ♦ 

♦ * 
***************** 



IJUGEXIT 

*****B5********** 

* STORE ADDR OF * 
*NEXT BUFFER IN * 

* DTF AS ADDR * 

* OF CURRENT * 

* BUFFER * 
***************** 



*****C5********** 

* MOVE USER * 

* IOREG NUMBER * 

* INTO LOAD * 

* INSTRUCTION * 

* IJKLOAD * 
***************** 



*****05********** 

♦ SAVE ADDRESS ♦ 

♦ OF NEXT ♦ 

♦ BUFFER AND ♦ 

♦ RESTORE USER ♦ 

♦ REGISTERS ♦ 
***************** 



IJULOAD 

*****E5***: 

* LOAD USER ♦ 

* IOREG WITH * 

* ADDRESS OF * 

* NEXT BUFFER * 

* * 
***************** 



****P5********* 

* RETURN TO * 
♦PROBLEM PROGRAM^ 

* * 
*************** 



*****G4** 

* SUBTRACT ONE * 
*FROM REMAINING * 

* NUMBER OF * 

* BUFFERS IN * 

* REG * 
***************** 



*****H4********** 

* STGRE THE * 

* CONTENTS OF * 

♦ REG BACK IN ♦ 

♦ THE DTF. (NO. * 
*OF BUFFER USED)* 
***************** 



*****H5********** 

* ADD ONE TO * 

* THE NUMBER OF * 

* LIOCS GETS * 
♦SINCE LAST EXT.^ 

* INTERRUPT ♦ 
***************** 



IJUSETPT 

*****J3******* 

♦ LOAD REG 6 

♦ WITH BUFFER 

♦ ADDR IN REG 

♦ AND RESET 

♦ WAIT BIT 
************** 



IJUADONE 
I 
.* 
YES 



IJUOLDNW 

*****j 4* ********* 

♦ LOAD REG 5 ♦ 

♦ WITH THE ♦ 

♦ ADDRESS OF ♦ 
♦THE NEXT BUFFERS 

♦ * 
***************** 



**** 

* * 

* 3 ♦ 



THREE ♦ 
OR LESS 
BUFFERS 

FULL 



***** 
*DB ♦ 
♦ A2 + 
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Chart DB. 



MRMOD: 



GET, READ, and CHECK Macros (Section 2 of 3) 



***** 

*DA * 

* K3* 

* * 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 2 * 



IJUCLOEX 

*****A1********** 

* POST CLOSED * 

* IN BUFFER * 

* ERROR *X. 

* INFORMATION * 

* * 
***************** 



***** 
*DA * 

* B5* 



IJUFEED X 

*****D1 ********** 

♦INSERT ADDR OF * 

* LAST BYTE OF * 

* PREVIOUS BUF * 
♦LOACED BY SUPVR* 
*INT0 ENG RD CCW* 
***************** 



*****E1********** 

* * 

* INITIALIZE * 

* COUNT * 

* OF 2 * 

* * 
***************** 



IJUNXTBF 

*****F1********** 

*IJUINCR DB* 
*_*_*_*_*_*_*_*_* 

* UPDATE ADDR * 

* TO NEXT * 

* BUFFER * 
***************** 



EXECUTE 

CHANNEL 

* PROGRAM 

************ 



IJUSVC1 X 

**A4******* 

* SVC 7 * 

* ENTER 
* WAIT 

* STATE 

* * 
*********** 



.* *. YES 

*. UNRECOVERABLE. *..X 
♦ .I/O ERROR.* 



.* *. YES 

♦.INTERVENTION .*..X 
♦.REQUIRED .* 



.* USER *. 
.♦ DISENGAGE ♦. YES 
. BIT ON IN .*... 
♦. DTF .♦ 



YES .♦ DUAL 
...♦. ADDRESSING 
♦ . + E4 



.♦ BUFFER 
. READY FOR 
♦PROCESSING. 



.♦ DUAL 
♦. ADDRESSING 
♦ . ^D4 



DOCUMENT 
BUFFER 
. EMPTY 



READ 
SWITCH ON 
. IN DTF . 



*****C5******* 

♦ TURN ON ♦ 

♦ WAIT SW IN 

♦ DTF AND SET 

♦ WAIT BIT IN 

♦ BUFFER ♦ 
************** 



***** 
*DA * 
* B5* 



*DC-C3,D3+ 



*****l-ll********** 

♦ STORE ADDR OF * 
♦NEXT BUF TO BE * 

♦ LOADED IN ENG ♦ 

♦ READ BUFFER 1 ♦ 

♦ CCW * 
***************** 



*****jl********** 

♦IJUINCR DB* 
*_*_*_*,*_*_*_*_* 

* UPDATE ADDR ♦ 

* TO NEXT * 

* BUFFER * 
***************** 



*****Kl********** 

♦ STORE ADDR OF ♦ 

♦ SECOND BUF TO ♦ 

♦ BE LOADED IN ♦. 

♦ RD BUF 2 AND ♦ 

♦ RD BUF 1 CCWS * 
***************** 



* * * 
**** 

IJUFEED 

*****G2******* 

♦ TURN OFF ♦ 

♦ CHAIN BIT IN 

* LAST CCW FOR 

♦ SINGLE 

* * 
************** 



*****H2********** 
♦MOVE DATA ADDR * 

♦ FROM SINGLE * 
♦ADDRESSING READ* 

♦ CCW TO * 

♦ ENGAGE CCW * 
***************** 



♦. AUTOSELECT 



*****P3********** 

♦ POST ♦ 

♦ AUTOSELECT ♦ 

♦ IN BUFFER ♦ 

♦ SENSE ♦ 

♦ INFORMATION ♦ 
***************** 



OVERRUN .♦ 



X 



IJUPSTOV 

*****H3********** 

♦ POST ♦ 

♦ OVERRUN ♦ 

♦ IN BUFFER ♦ 

♦ ERROR ♦ 

♦ INFORMATION ♦ 
***************** 



*E4 
MRMOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



) 

*****J2*=I 

♦ MOVE 

♦ COMMANt 

♦ HEX 4( 

♦ ENGAG 
* 
********* 


< 
;>******** 

READ * 
) CODE, * 
:, TO * 
E CCW * 

* 

jc******** 


IJUPSTCF X 

*****J3********** 
♦POST REJECT IN ♦ 

♦ BUFFER SENSE ♦ 

♦ INFORMATION ♦ 

♦ AND TURN ON ♦ 
♦BUF STATUS IND * 
***************** 

X 

***** 
*DA * 
* B4* 
* * 
* 
IJUCLBUF 



****P5********* 

* * 

* IJUINCR * 

* * 
*************** 



IJUINCR X 

*****G5********** 

*ADD BUF LENGTH * 
*TO ADDR OF LAST* 

* BYTE OF LAST * 

* BUF LOADED * 

* BY SUPVR * 
***************** 



.* DOC *. 
NO .* BUFFER ♦. 
...♦. AREA 

♦.EXCEEDED .♦ 



*****J5********** 

♦ INITIALIZE TO ♦ 

♦ LOAD FIRST * 

♦ BUF IN DOC * 

♦ BUFFER AREA ♦ 

♦ NEXT ♦ 
***************** 



****K5********* 

* * 

* RETURN ♦ 

* * 
*************** 
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Chart DC. MRMOD: GET,, READ, and CHECK Macros (Section 3 of 3) 



***** 

*DB * 
* C3* 



*A1 
MRMOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



**** 

* * 

* 1 * 

* * 
**** 



*****£}******* 

* POST * 

* INTERVENTION 

* REQUIRED BIT 

* IN BUFFER 

* * 
************** 



*****0L******* 

* RESET * 

* INTERVENTION •■ 

* REQUIRED BIT 

* IN CCB 

* * 
************** 



*****EL******* 

* * 

* POST UNIT * 

* EXCEPTION BIT 

* IN CCB * 

* * 
************** 



*****PL******* 

* * 

* RESET INITIAL* 

* READ BIT IN * 

* DTF * 

* * 
************** 



* DUAL *. NO 

ADDRESSING .*... 
*. *A1 .* 



DISENGAGE 

BIT ON IN 

CCB 



.* DISENGAGE *. NO 
*. BIT ON IN .*... 
*. DTF .* 



*****E2******* 

* * 

* POST UNIT * 

* EXCEPTION BIT * 

* IN BUFFER * 

* * 
************** 



*****F2******* 

* * 

* TURN OFF USER* 

* DISENGAGE BIT * 

* IN DTF * 



.* DATA *. 
. CHECK OR 
♦.DISENGAGE.* 



*****Q4********** 

* MOVE MESSAGE * 

* CODE 33 * 

* TO MESSAGE * 

* BYTE IN DTF * 

* * 
***************** 



* SCU NOT *. 

OPERATIONAL . 

*. .* 



***** 
** * 
* G3* 



*****G2******* 

* TURN OFF * 

* DOCUMENT * 

* BUFFER STATUS 

* INDICATOR * 

* BIT * 
************** 



*****H2 ********** 

* * 

* CLEAR * 

* DOCUMENT * 

* BUFFER * 

* * 
***************** 



*G3 
DB-D1 FOR DUAL 
DB-G2 FOR SINGLE 



*****P4********** 

* POST * 

* UNRECOVERABLE * 

* I/O ERROR IN * 

* BUFFER ERROR * 

* INFORMATION * 
***************** 



***** 
*DA * 
* B5* 



IJUFETCH 

*****(: 5********** 

* INITIALIZE * 

* TO FETCH * 

* MSG. WRITER * 

* *$BMMR20 * 

* * 
***************** 



****G5********* 

* SVC 2 * 
♦FETCH $$BMMR20 * 

* * 
*************** 



***** 
*DA * 
* B5* 
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Chart DD. MRMOD: DISEN Macro (Disengage) 



****/\3********* 

* ENTRY FROM * 

* DISEN MACRO * 

* EXPANSION * 
*************** 



TURN ON USER 

DISENGAGE BIT 

IN DTF 



C2 


C3 *. 


DTFMR MACRO 


.* DUAL * 


PARAMETER 


.♦ADDRESSING 


OPTION - DECISION 


*. SPECIFIED 


DOES NOT APPEAR 


*. IN DTF 


IN AN ASSEMBLY 


*. *C2 .* 


LISTING. 


*. .* 



*****0 3 ********** 

* TURN ON CHAIN * 

* BIT IN * 

* DISENGAGE CCW * 

* FOR SINGLE * 



*** 



************** 



IJUDISDL 

*****Q4********** 

* SET DISENGAGE * 

* COMMAND CODE, * 

* X'DF' IN * 
*DUAL DISENGAGE * 

* CCW IN DTF * 
***************** 



****E3********* 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 
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Chart DE. 



MRMOD: LITE Macro 



**** 

* * 

* i * 

* * 
**** 



* ENTRY FROM * 

* LITE MACRO * 

* EXPANSION * 
*************** 



* SAVE RETURN 

* ADDRESS AND 

* USER REGS 

*************** 



*****Cl ********** 

* LOAD REG 14 * 

* WITH THE ADDR * 

* OF THE USER'S * 

* 2-BYTE POCKET * 
*LIGHT INDICATOR* 
***************** 



Dl *. 
.* UNIT *. 
.♦ EXCEPTION ♦ . NO 
. BIT ON IN .*... 
*. DTF CCB .♦ 



*. 



.* 



IJUNXTLT .*. 

A3 *NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 

.* *. * POCKET LIGHT * 

.* TURN ON *. NO * TEST STARTS * 

*. THIS POCKET .*.... * AT POCKET 



* INITIALIZE * 

* 2-BYTE POCKET * 
♦LIGHT INDICATOR* 

* TEST AREA * 
***************** 



***** PI ********** 

* * 

* INITIALIZE * 

* COUNT TO * 

* 12 IN * 

* REGISTER 8 * 
***************** 



*****£ 2 ******* 

* TURN ON * 

* ERROR BIT IN * 

* USER'S 2-BYTE 

* POCKET LIGHT * 

* INDICATOR * 
************** 



LIGHT 



*****B3 ********** 

* * 
♦LOAD REGISTER 0* 

* WITH COUNT * 

* MINUS ONE * 

* * 
***************** 



*****C3********** 

* * 

* MULTIPLY * 

* COUNT MINUS * 

* ONE BY 16 IN * 

* REGISTER * 
***************** 



***** 03 ********** 

* INSERT * 

* COMMAND CODE * 

* IN CCW FOR * 

* SINGLE ADDR. * 

* ADAPTER * 
***************** 



E3 *. 
.* DUAL *. 
NO .*ADDRESSING 
...*. SPECIFIED 
*. IN 

*. DTF .* 
*. .* 
*YES 



* B AND ENDS 

* WITH POCKET 
************** 



*****B5********** 

* * 

* RESTORE * 

* DTF * 

* ADDRESS * 

* * 
***************** 



*****05******* 

* TURN ON * 

* ERROR BIT IN * 

* USER'S 2-BYTE 

* POCKET LIGHT * 

* INDICATOR * 
************** 



*****P3***** 

* INSERT * 

* COMMAND CODE * 

* IN CCW FOR * 

* DUAL ADDRESS * 

* ADAPTER * 
***************** 



IJUSHIFT 

*****£ 5********** 

* INITIALIZE * 

* POCKET LIGHT * 
♦INDICATOR TEST * 

* AREA FOR * 

* NEXT POCKET * 
***************** 



*****p 5* ********* 

* * 

* SUBTRACT * 

* ONE FROM * 

* COUNT IN * 

* REGISTER 8 * 
***************** 



* SAVE * 

* DTF * 

* ADDRESS * 

* * 
***************** 



******H3*********** 

SVC 

* TURN ON * 

POCKET 

* LIGHT * 

************* 



NO .* ALL 
...*. POCKETS 
*. TESTED 



* 1 * 

* * 
**** 



I/O 


♦ . 


YES 


COMPLETE 


.♦" 


♦ .. . . 


*. .* 






*. .* 




X 


♦ NO 




**** 
* 
♦ 2 

**** 


X 






**K3****+^ 






* 




SVC 7 


* 




WAIT 




* 



********** 



IJULOUT 

*****J5********** 
♦RESTORE RETURN ♦ 

♦ ADDRESS TO ♦ 

♦ REG 14 AND ♦ 
♦RESTORE USER'S ♦ 

♦ REGISTERS ♦ 
***************** 



****K5********* 

* RETURN TO * 
♦PROBLEM PROGRAM* 

* * 
*************** 
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Chart DF. MRMOD: WAITF Macro 



****A2********* 

* ENTRY FROM * 

* WAITF MACRO * 

* EXPANSION * 
*************** 



IJUWAITF 

*****g 2 ♦♦♦♦♦♦♦♦*♦ 
♦SAVE WAIT (DC) * 

* LIST POINTER * 

* AND REGISTERS * 

* 5 AND 6 * 

* * 
***************** 



C2 *. 

.* MORE *. 

.* THAN ONE 

*. OPERAND IN 

*.WAIT (DC). 

♦.LIST .* 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* * 

* 2 * 

* * 
**** 



*NO 



*****g 2 ********** 

* GET ADDRESS * 

* ON NEXT * 

* DOCUMENT * 

* BUFFER * 

* * 
***************** 



IJURETRY 

*****C4********** 

* LOAD REG 14 * 

* WITH STARTING * 
. ..X* ADDRESS OF * 

* WAIT LIST * 



***************** 



IJUAGAIN X 

*****04********** 
*UPOATE POINTER * 

* TO NEXT DC IN * 
♦WAIT LIST. GET * 
♦POINTER TO NEXT+ 

♦ DOC. BUFFER ♦ 
***************** 



E4 ♦. 

.♦ NEXT ♦ 

DOC BUF 

THE LAST 

.DOCUMENT 

♦. BUF .♦ 

♦ . .* 

♦ NO 



*****£ 5********** 

* LOAD REG ♦ 

* WITH STARTING * 
X* ADDRESS OF * 

* DOCUMENT * 

* BUFFER AREA * 
***************** 



.* BUFFER *. 
. READY FOR .* 
♦PROCESSING.* 



Gl *. 

.* * 

I/O 

COMPLETE 



**Hi******* 

* SVC 7 * 
ENTER 
WAIT 
STATE 

* * 
*********** 



F4 

.* DTF 
FILE TYPE 
» HEX OB 

. (MICR) 



*. 



.♦ END ♦ 
.OF WAIT (DC) 
♦. LIST .♦ 



♦ RESTORE ♦ 

♦ REGISTERS ♦ 

♦ 5 AND 6 ♦ 

♦ * 
***************** 



****J2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*****H3********** 

* UPDATE * 

* TO NEXT * 

* ENTRY IN * 

* WAIT LIST * 

* * 
***************** 



.* BUFFER 
. READY FOR 
♦PROCESSING. 



.♦ I/O ♦ 
YES .♦ COMPLETE 
...... FOR THIS 

♦. DEVICE 



.♦ END ♦ 
♦.OF WAIT (OC) 
♦. LIST .♦ 



**j5******* 

♦ SVC 29 ♦ 

ENTER 
WAIT STATE 
(MULT. WAIT 

* FOR MICR) ♦ 
*********** 
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Chart DG. $$BOMR01: Open MICR 



****A1********* 

* FROM OPEN * 

* MONITOR * 

* $$BOPEN * 
*************** 



FRSTINST 

*****B1 ********** 

* INITIAIZE * 

* REGS 5 AND 6 * 

* WITH IOAREA * 

* ADDR AND SIZE * 

* RESPECTIVELY * 
***************** 



*#***C1 ********** 

* * 

* MOVE HEX 00 * 
♦INTO FIRST BYTE* 

* OF DOCUMENT * 

* BUFFER AREA * 
***************** 



* CLEAR * 

* REMAINDER OF * 

* DOCUMENT * 

* BUFFER AREA * 
***************** 



*****E1 ********* 



**** 

* * 

* 1 * 

* * 
**** 



SKIP X 

*****B3********** 

* COMPUTE PUB * 

* ENTRY ADDRESS * 

* AND GET LINE * 

* NO. TO WHICH * 
♦DEVICE ATTACHED* 
***************** 



* LINE *. 

NUMBER 
♦.SPECIFIED.* 



*****03********** 

* * 
*DETERMINE ENTRY* 

* LINE IN DTF * 
♦ADDRESS TABLE, * 

* PDTABB ♦ 
***************** 



*****F1 ********** 

* * 
♦GET DEVICE UNIT* 

* NUMBER FROM ♦ 

* DTF CCB ♦ 

* * 
***************** 



*****G1 ********** 

♦ * 

♦ COMPUTE LUB ♦ 

♦ ENTRY NUMBER ♦ 

♦ AND ADDRESS ♦ 

♦ * 
***************** 



***** j 1 ********** 

* * 

* FORCE DEVICE ♦ 

* UNASSIGNED ♦ 

* MESSAGE ♦ 

* * 
***************** 



.X.. 
X 
**** 

* * 

* 1 ♦ 

* * 
**** 



*****E3********** 
♦STORE DTF ADDR ♦ 

♦ IN PDTABB ♦ 
♦(LINE 7 IF NOT ♦ 

♦ SPECIFIED IN ♦ 

♦ PUB) ♦ 
***************** 



*****F3********** 

♦ * 

♦ MOVE PIK TO ♦ 

♦ BYTE 4 OF ♦ 

♦ PDTABB ENTRY ♦ 

♦ * 
***************** 



*****G3********** 

♦ MOVE CHANNEL ♦ 

♦ AND UNIT ♦ 

♦ ADDRESS FROM * 

♦ PUB INTO THE * 

♦ DTF ♦ 
***************** 



*****H3 ********** 

* ADD ONE TO * 

* CHAN AND UNIT * 

* ADDR AND PUT * 

* IN SECONDARY * 

* ADDR IN DTF * 
***************** 



*****J3********** 

* RESET THE ♦ 

* TRANSMISSION ♦ 

* AND CSW BYTES ♦ 

* IN THE DTF * 

* CCB TO ZEROS * 
***************** 



*****A5******* 

♦ * 

♦ TURN ON UNIT ♦ 

♦ EXCEPTION BIT 

♦ IN DTF CCB ♦ 

♦ * 
************** 



*****B5********** 

♦ RESET ♦ 

♦ DTF LOGIC ♦ 
♦MODULE SWITCHES* 

♦ (BYTE 21) ♦ 

♦ * 
***************** 



*****C5********** 

♦ SET SUPVR ♦ 

♦ SWITCH BYTE ♦ 

♦ (BYTE 77) IN ♦ 

♦ DTF TO HEX 01 ♦ 

♦ * 
***************** 



*****D5********** 

♦ RESET SUPVR * 

♦ AND LIOCS GET ♦ 

♦ COUNTERS IN ♦ 

♦ DTF TO ZEROS ♦ 



****** 



******* 



*****E5***** 

♦ MOVE ADDR OF 

♦ LAST BUFFER 

♦ TO ADDR OF 

♦ ACTIVE GET 

♦ RECORD 
**************** 



*****P5********** 

♦ MOVE ADDR OF ♦ 

♦ LAST BUFFER * 

♦ TO ADDR OF ♦ 
♦CURRENT BUFFER ♦ 

♦ * 
***************** 



*****H5********** 
.* * 

♦ MOVE ADDRESS ♦ 

♦ OF BUFFER ♦ 

♦ INTO DTF ♦ 

♦ * 
***************** 



♦ TURN ON 

♦ OPEN BIT IN 

♦ THE DTF 

♦ * 
************** 



****K5********* 

♦ FETCH ♦ 

♦ $$BOPEN ♦ 

♦ * 
*************** 
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Chart DH. $$BCMR01: Close MICR 



* ENTRY FROM * 

* CLOSE MONITOR * 

* $$BCLOS2 * 
*************** 



♦SET OPEN/CLOSE* 

* IND. IN THE DTF* 

* TO CLOSE «0) * 

* * 
************** 



*****C2******* 

* * 

* RESET * 
♦TRAFFIC BIT IN 

* THE CCB * 

* * 
************** 



D2 *. 

.♦IS FILE*. 

OPERATING * 

IN THIS 

.PARTITION.* 



*****£ 2* ********* 

* TURN OFF * 

* EXTERNAL LINE * 

* STATUS IND. * 
*FOR THIS ENTRY * 

* IN PDTABB * 
***************** 



SKIP 

*****F2******* 
♦UPDATE ADORES 

* FOR NEXT 

* ENTRY IN 

* THE POTABB 

* TABLE 
************** 



.*LAST PDTABB*. NO 
*. TABLE ENTRY .♦... 
*. CHECKED .* 



****H2******++* 

♦ FETCH ♦ 

♦ $$BCLOSE ♦ 

♦ * 
*************** 
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Chart DJ. $$BMMR20: MICR Message Writer 



* 
$$BMMR20 * 
* 
************** 



RELOCATE CCW * 

ADDRESS IN * 

CCB * 

* 

**************** 



*****C 2 ********** 

* RELOCATE * 

* MESSAGE * 

* ADDRESSES IN * 

* MESSAGE * 

* CCW'S * 
***************** 



*****D2********** 

* LOAD REGISTER * 

* WITH ADDRESS * 

* OF MESSAGE * 

* TABLE * 

* * 
***************** 



*****£ 2********** 

* DETERMINE * 

* MESSAGE * 

* NUMBER FROM * 

* DTF TABLE * 

* * 
***************** 



*****F2********** 

* * 

* RESET MESSAGE * 

* BYTE IN DTF * 

* TO HEX '0O« * 

* * 
***************** 



*****G2********** 

* MOVE MESSAGE * 

* STATEMENT * 

* TO OUTPUT * 

* AREA * 

* * 
***************** 



*****H2********** 
♦INSERT SYMBOLIC* 

* FILENAME * 

* FROM DTF INTO * 

* MESSAGE * 

* AREA * 
***************** 



*****B3********** 

* CONVERT CCB * 

* FROM DTF INTO * 
♦PRINTABLE FORM * 
♦AND INSERT INTO* 

* MESSAGE AREA ♦ 
***************** 



* DUAL 

ADDRESSING 
*. OPTION . 



*****03********** 

♦ CONVERT SENSE * 

♦ INFORMATION ♦ 

♦ IN DTF FOR ♦ 

♦ DUAL INTO * 
♦PRINTABLE FORM * 
***************** 



*****£ 3********** 

♦ CONVERT SCU ♦ 
♦CLASS AND UNIT ♦ 

♦ AND INSERT IN * 

♦ MESSAGE ♦ 

♦ AREA ♦ 
***************** 



*****P3********** 

♦ INSERT SEC. ♦ 

♦ DEVICE UNIT ♦ 

♦ ADDR FROM ♦ 

♦ DTF INTO * 

♦ REG ♦ 
***************** 



*****D4********** 

♦ CONVERT SENSE ♦ 

♦ INFORMATION ♦ 

♦ IN DTF FOR ♦ 

♦ SINGLE INTO ♦ 
♦PRINTABLE FORM * 
***************** 



*****E4********** 

♦ CONVERT ♦ 

♦ CHANNEL AND ♦ 

♦ UNIT NUMBER ♦ 

♦ AND INSERT IN ♦ 

♦ MESSAGE AREA ♦ 
***************** 



*****P4********** 

♦ INSERT PRI ♦ 

♦ DEVICE UNIT ♦ 

♦ ADDR FROM ♦ 

♦ DTF INTO ♦ 

♦ REG ♦ 
***************** 



♦ LOAD REG 1 

♦ WITH ADDRESS 

♦ OF TYPCCB 
* 
*************** 



******C5*********** 

PRINT 

♦ MESSAGE * 

ON SYSLOG 

♦ (SVC 0) ♦ 

************* 



****05********* 

♦ RETURN TO * 

♦ LIOCS VIA ♦ 

♦ SVC 11 ♦ 
*************** 



CUNAD 

*****G3********** 
♦CONVERT DEVICE * 

♦ UNIT ADDRESS ♦ 

♦ AND INSERT IN ♦ 

♦ MESSAGE AREA * 

♦ * 
***************** 



*****H3********** 

♦ CONVERT FILE * 

♦ NUMBER TO ♦ 

♦ PRINTABLE ♦ 

♦ FORM ♦ 

♦ * 
***************** 



***** j 2 ********** 

♦ CONVERT CSW ♦ 

♦ TO PRINTABLE ♦ 
♦FORM AND INSERT^ 

♦ IN MESSAGE ♦ 

♦ AREA ♦ 
***************** 



.X* 



*****J4********** 

♦ MOVE 'SCU NOT ♦ 

♦ OPERATIONAL' * 
STATEMENT * 
TO OUTPUT ♦ 

♦ AREA ♦ 
***************** 



.X. 



**** 

* * 

* 2 ♦ 

* * 
**** 
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Chart EA* ORMOD: CNTRL Macro (Section 1 of 3) 



****Bi********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 



*C1 
DEVICE=1287D 
SPECIFIED AS AN 
ORMOD MACRO 
PARAMETER - DECISION 
DOES NOT APPEAR IN 
AN ASSEMBLY LISTING. 



****A2********* 

* ENTRY FROM * 

* CNTRL MACRO * 

* EXPANSION * 
*************** 



NO .* CONTROL 
...*. SPECIFIED 
*. IN DTF . 



.♦RECFORM*. 

= UNDEF OR 

FIXUN8 

*C1 



* STORE * 

* REGISTERS * 

* 13 AND 14 * 

* * 
***************** 



*****g3 ********** 

* SAVE ADDR OF * 

* INTERRUPTED * 

* CCW AND MOVE * 
*CCW INTO CNTRL * 

* CCW LOCATION * 
***************** 



*****C3********** 

* INSERT USER'S * 

* CONTROL COOE * 

* INTO CNTRL * 

* CCW COMMAND * 

* CODE * 
***************** 



*****A4********** 

* * 

* LOAD REG 13 * 
.X* WITH ADDRESS * 

* OF SENSE CCW * 

* * 
***************** 



*****B4********** 

* * 

* STORE REG 13 * 

* (CCW AODRESS) * 

* IN CCB * 

* * 
***************** 



DOCUMENT *. NO 
MODE .*... 
*C1 .* 



.X* 



*****C5********** 

* SUBTRACT * 

* BLOCKSIZE * 
FROM IOAREA * 

* ADDRESS IN * 

* CCW * 
***************** 



*****0l********** 

* * 

* SAVE ADDRESS * 

* OF CCW *X 

* IN CCB * 

* * 
***************** 



TAPE 

MODE 

*C1 



*****E2********** 

* * 

* SAVE * 

* AODRESS OF * 

* DTF TABLE * 

* * 
***************** 



*****P2********** 

* LOAD REG 1 * 

* WITH ADDRESS * 
OF CCB IN * 



.* IS *. 
* CONTROL * 

CODE A READ 
*. KEYBOARD .* 



*****E3********** 

* CALC. ADDRESS * 

* OF KEYBOARD * 

* INPUT AREA * 

* ANO INSERT * 

* INTO CCW * 
***************** 



*****04********** 

* INSERT * 

* CONTROL CODE * 

* IN CCW * 

* COMMAND * 

* CODE * 
***************** 



DOCUMENT 

MODE 

*C1 



**Gi******* 



*********** 



*****H2********** 

* RESTORE * 

* ADDRESS OF * 

* DTF TABLE * 

* TO REG I * 

* # 
***************** 



TAPE 

MODE 
*Ci 



***************** 



* RESET ERROR * 

* INOICATOR * 

* BYTE TO 00 * 

* * 
***************** 



*****H3******* 

* * 

* TURN OFF 

* CHAIN BIT 

* IN CCW 

* * 
************** 



*****j3********** 

* * 
*PUT ADDRESS OF * 

* INTERRUPTED * 

* CCW INTO CCB * 

* * 
***************** 



**** 

* * 

* 3 *.X. 

* * 
**** 

IJMT6XXX 

*****G4********** 



***************** 



*****H4********** 

* LOAD REG 1 * 

* WITH ADDRESS * 

* OF CONTROL * 

* CCW * 

* * 
***************** 



***** 
*EB * 
* A3* 



F5 *. 

.* IS *. 
* CONTROL *. 

CODE A READ .* 
♦.KEYBOARD .* 



**** 

* * 
*EB *... 

* F3* 
**** • . 

IJMT7XXX X 

*****G5********** 

* * 

* MOVE BLANKS * 

* INTO * 

* IOAREA * 

* * 
***************** 



.* RECFORM *. YES 
. « UNDEF OR .*. 
*. FIXUNB .* 



**** 

* * 

* 4 * 

* * 
**** 



.* CONTROL *. YES. 

*. CODE A READ .*..X. 

♦.KEYBOARD .* 



*****K2********** 

* LOAD REG 13 * 

* WITH ADDRESS * 

* OF CONTROL * 

* CCW * 

* * 
***************** 



*****K5********** 

* * 

* MOVE 10 ♦ 

* TO CCW * 

* BYTE COUNT * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 
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Chart EB. ORMOD: CNTRL Macro (Section 2 of 3) 



***** 

*EA * 

* H4* 





****** A3*********** 

SVC 

* EXECUTE * 

CONTROL 

* OPERATION * 

************* 

....... .....x! 


*****A4******* 

* TURN ON * 

* DATA CHECK * 

* BIT IN DTP * 

* ERROR * 

* INDICATOR * 
************** 


**B2******* 
* * 

* SVC 7 * 
....* WAIT *X... 

* * 


X 

.*. 

B3 *. 

NO .** I/O "♦. 
....«♦. COMPLETE .* 
*. .* 


X 
*****B4********** 

* ADD 1 TO * 

* DATA CHECK * 

* COUNT IN * 

* DTF * 



*C1 
OEVICE = 1287D 
SPECIFIED AS AN 
ORMOD MACRO 
PARAMETER - 
DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



*********** 



*C2 
ORMOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



***************** 



*****C3********** 

* RESTORE * 

* ACDRESS, OF * 

* CCB TO * 

* REG 1 * 

* * 
***************** 



TAPE *. 

MODE .* 
♦CI .* 



***** 

*EC * 

* Al* 

* * 



*****E2********** 

* ADD 1 TO * 

* DTF COUNT 

* OF LINES 

* MARKED 



*X. 



******** 



******** 



IJMT5XXX 

*****G1********** 

* RESTORE * 

* ACDRESS OF * 

* NORMAL CCW * 

* TO CCB * 

* * 
***************** 



...X. 
X 

.♦. 

F2 *. 

RECFORM 
UNOEF OR 
FIXUNB . 
*. *C2 .* 



IJMT5XXX 

*****G2********** 

* RESTORE * 

* ADDRESS OF * 

* INTERRUPTED * 

* CCW TO CCB * 

* * 
***************** 



E3 *. 

.♦ IS *. 

.* CONTROL * 

. CODE A READ 

♦.KEYBOARD .* 

*. .* 



.*. 
F3 *. 
.* UNIT ♦ . 
YES .* EXCEPTION 
...*. BIT ON IN 
*. CCB 



UNDEFINED 

RECORDS 

*C2 



IJMZQXXX .*. 

04 *. 
.♦ 
* WRONG 
LENGTH 
*. RECORD 
♦ .ERROR.' 



NO 



♦YES 



*****E4******* 

♦ TURN ON ♦ 

♦ WLR BIT IN ♦ 

♦ DTF ERROR IND 

♦ AND IN ♦ 

♦ CCB ♦ 
************** 



***** 

♦ EA * 

♦ G5^ 



♦ • 



**** 

* * 

* 1 * 

* * 
**** 



*****G3********** 

♦ RESET DTF ♦ 

♦ ERROR IND. ♦ 

♦ BYTE TO ♦ 

♦ HEX 00 ♦ 

♦ * 
***************** 



RECFORM 

= UNDBLK 

*C2 



RECFORM 

= FIXBLK 

*C2 



*****H2********** 

* * 

* RESTORE ♦ 

* REGISTERS ♦ 

* 13 AND 14 ♦ 

* * 
***************** 



****J2********* 

♦ RETURN TO ♦ 

♦ PROBLEM ♦ 

♦ PROGRAM ♦ 
*************** 



*****J3********** 

* * 
♦EXECUTE USER'S ♦ 

♦ CORRECTION ♦ 

♦ ROUTINE ♦ 

* * 
***************** 



IJMZQXXX 

*****H4********** 

♦ LOAD REG 14 ♦ 

♦ WITH BYTE ♦ 

♦ COUNT FROM ♦ 

♦ CCW ♦ 

♦ * 
***************** 



♦ LOAD REG 14 ♦ 

♦ WITH RECORO ♦ 

♦ LENGTH ♦ 

♦ * 
***************** 



**** 

* * 

* 3 ♦ 

* * 
**** 



*****J4********** 

♦ SUBTRACT CCB ♦ 

♦ RESIDUAL ♦ 

♦ COUNT FROM ♦ 

♦ CONTENTS OF ♦ 

♦ REG 14 ♦ 
***************** 



*****K4******* 

♦ TURN ON ♦ 

♦ WRONG ♦ 

♦ LENGTH RECORD ♦ 

♦ SWITCH ♦ 

♦ * 
************** 
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Chart EC. ORMOD: CNTRL Macro (Section 3 of 3) 



***** 

*EB * 
* D3* 



*****A1 ********** 

* RESET DTF * 

* ERROR * 

* INDICATOR * 

* BYTE TO * 

* HEX 00 * 
***************** 



**** 

* * 

* 2 • * 



*****B3******* 

* TURN ON * 

* NON-RECOV. 

* BIT IN DTF 

* IND. AND IN 

* CCB * 
************** 



**** 

* * 

* 3 * 



STACKER *. YES 
SELECT .*.... 
COMMAND .* 



.* 
.* 
*. RE 



NON- * 
COVERABLE 
ERROR .* 



**** 

* * 

* 2 * 



LATE 
STACKER 
SELECT 



*****Hl ********** 
♦IJMSBXXX EC* 
*-*—*-*-*-*-*-*-* 

* ERROR * 

* CHECK * 

* ROUTINE * 
***************** 



**** 

* * 

* 1 * 



****J1********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*****H2******* 

* TURN ON * 

* LATE SS BIT 

* IN DTF IND. 

* AND IN 

* CCB * 
************** 



****J2 ********* 
*EXIT TO USER'S * 

* CORRECTION * 

* ROUTINE * 
*************** 



***************** 



*****03********** 

* * 
♦EXECUTE USER'S * 

* CORRECTION * 

* ROUTINE * 

* * 
***************** 



*****E3 ********** 

* * 

* RESTORE * 

* REGISTERS * 

* 13 AND 14 * 

* * 
***************** 



*****F3 ********** 

* * 

* RESTORE * 

* CCW ADDRESS * 

* TO CCB * 

* * 
***************** 



****A4********* 

* * 

* IJMSBXXX * 

* * 
*************** 



IJM5BXXX X 

*****B4******* 

* SET CCB * 

* BYTE 12 FOR 

* SUPERVISOR 

* ERP 

* * 
************** 



*****C4********** 

* * 

* LOAD REG .1 * 

* WITH ADDR * 

* OF CCB * 

* * 
************ 



*****04*********** 

SVC 
* RETRY * 

ERROR 
* COMMAND * 

************* 



**E5******* 



*********** 



*****P4******* 

* RESET CCB * 

* BYTE 12 * 

* FOR USER 

* ERP * 

* * 
************** 



UNIT 
EXCEPTION 
. SWITCH . 



• X* 



*****G5******* 

* TURN ON * 

* UNIT EXCEPT 
SWITCH (SET 

IJMSCXXX 
TO BRANCH) * 
*********** 



***J4********* 
RETURN TO * 
ADDRESS IN * 
REGISTER 14 * 

************** 



*****J5********** 

* RESTORE * 

* REG 13 AND * 

* LOAD REG 15 * 

* WITH ADDR OF * 
♦USER'S EOF RTN.* 
***************** 



****K5********* 

* EXIT TO * 

* USER'S EOF * 

* ROUTINE * 
*************** 
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Chart ED. 



ORMOD: DSPLY 



**** 

* * 

* 2 * 

* * 
**** 



***Ai********* 
ENTRY FROM * 
DSPLY MACRO * 
EXPANSION * 

************** 



IJMDYXXX 

*****B1 ********** 

* SAVE REGS * 

* 13 AND 14 * 

* AND * 

* CCW ADDR * 

* * 
***************** 



*****C1 ********** 

* CALCULATE * 

* HIGH-ORDER * 

* AREA ACDR * 

* FOR CCW * 

* * 
***************** 



*****0l********** 

* MODIFY * 

* COMMD CODE * 

* TO * 

* READ FORWARD * 

* * 
***************** 



*****£!******* 

* * 

* SET 

* CHAINING 

* BIT OFF 

* * 
************** 



*****P1 ********** 

* * 

* STORE * 

* CCW ADDR * 

* IN CCB * 

* * 
***************** 



***************** 



******Hl *********** 

* SVC * 

READ 

* FORWARD * 

************* 



*****C4********** 

* * 

* POST EQUIP. * 

* CHECK TO * 

* CCB * 

* * 
***************** 



*****D4******* 

* SET ERROR * 

* INDIC. TO 

* LOST 

* LANDMARK 

* * 
************** 



WRONG 
LENGTH 
RECORD 



****F4******* 

SET ERROR * 

IND TO 

WRONG LENGTH 

RECORD 



X... 



IJMDRXXX 

*****G4********** 

* RESTORE * 

* REGS 13 $ 14 * 

* AND * 

* CCW ADR * 



********** 



**** 



****H4* ******** 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 






**J2******* 



*********** 



*****«2 ********** 

* UPDATE CCW * 

* ADDR TO * 
X* POINT TO * 

* RDFRWRD CCW * 

* * 
***************** 



**** 

* * 

* 2 * 
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Chart EE. ORMOD: GET Macro, Unblocked Records (Section 1 of 4) 



* 3 * 

* * 
**** 



****A1********* 

* ENTRY FROM * 

* GET MACRO * 

* EXPANSION * 
*************** 



IJMAIXXX 

*****B1 ********** 

* SAVE REG 14 * 

* RETURN ADDR. * 

* TO USER ANO * 

* ZERO RETRY * 

* COUNTERS * 
***************** 



WORKA 
OR 2 I/O 
. AREAS 



***** 
*EF * 
* E2* 



****A3********* 

* RETURN FROM * 

* CORE RESIDENT * 

* ERROR RTN. * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



**** 
IJMTKXXX 

*****C2******* 

* * 

* SET FIRST 
...X* TIME SWITCH 

* ON 



************** 



*. 
*. 
X 
**** 

* * 

* 3 * 

* * 
**** 

IJMSQXXX 



***** 

*EF * 

* C4* 

* * 



*. NONRECOVERY 



*****C4********** 

* SET NONREC. * 
*BIT ON IN ERROR* 

.X*IND. BYTEt SET *. 

* UP COREXIT * 

* ADOR. * 
***************** 



****C5********* 

* EXIT TO * 

* COREXIT * 

* ROUTINE * 
*************** 



* SET UP * 

* REFERENCE * 

* TO NEW CCB * 

* * 
***************** 



*****Q2******* 

* * 

* SET FIRST 
X* TIME SWITCH 

* OFF 

* * 
************** 



SET CCB 

ZERO I/O 

* AREA, SVC * 

************* 



**F2******* 



*********** 



*****G1 ********** 



***************** 



*****H2********** 

* * 

* SET UP EOF * 
X* AOOR. IN * 

* REG. 13 * 

* * 
***************** 



*****E3********** 

* INCREMENT * 

* EQUIP. CHK. * 

* COUNTER AND * 

* RETRY * 

* COUNTER * 
***************** 



RETRY 

10 
TIMES 



*****G3********** 

* SET EQUIP. * 

* CHK. BIT ON * 

* IN ERROR * 

* IND. BYTE * 

* * 
***************** 



*****H3********** 

* INCREMENT * 

* EQUIP. CHK. * 

* AFTER 10 * 

* RETRIES * 

* COUNTER * 
***************** 



Jl *. 
.* CHAN. * 

DATA OR 
CHAINING 
. CHK. 



*****P5********** 

* INCREMENT * 

* WLR COUNTER * 

* AND RETRY * 

* COUNTER * 

* * 
***************** 



.*. 
G5 *. 
.* * 
NO .* RETRIED 
...*. 10 

*. TIMES 



*YES 



*****H5******* 

* SET WLR * 

* BIT ON IN 

* ERROR 

* IND. BYTE 

* * 
************** 



*****j5********** 

* INCREMENT * 

* WLR AFTER * 

* 10 RETRIES * 

* COUNTER * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



*****K2******* 

* * 

* SET 
X* IJMSCXXX 

* TO A NOP 

* * 
************** 



***** 
*EH * 
* B2* 



***** 
*EF * 
* A2* 



***** 
*EF * 
* G2* IJMTDXXX 
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Chart EF. ORMOD: GET Macro, Unblocked Records (Section 2 of 4) 



***** 

*EE * 
* K3* 



***** 
*EE * 
* K3* 



*****A2 ********** 

* * 

* INCREMENT * 

* DATA CHK * 

* COUNTER * 

* * 
***************** 



YES .*NONRECOVERY*. 
...*. ON EQUIP. . 
*. CHK. .* 



IJMTEXXX .*. 

A3 *. 
.* DATA *. 
.♦CHK. EQUIP *. NO 
*. CHK NON- .*... 
*. REC. KC .* 



IJMTFXXX 

*****B 3 ********** 

* SET UP * 

* COREXIT * 

* AODR. * 

* IN * 

* REG 13 * 
***************** 



WLR 

*. .** 
*N0 



*****D2********** 

* * 

* INCREMENT * 

* RETRY * 

* COUNTER * 

* * 
***************** 



*****E3********** 



.* RETRIED *. NO 


* SET UP CCW 


*. 5 .*.... 


* ADDR TO 


*. TIMES .* 


* GTNL 


*. .* . 


* 


*. .* X 


************* 


*YES ***** 




*EE * 




* C2* 




* * 




X. * 




IJMTKXXX 




IJMTCXXX X 


X 


*****P2********** 


*****P3****** 


* SET DATA * 


* 


* CHK. BIT ON * 


* SAVE REG 1 


* IN ERROR * 


* SET CCB 


* IND. BYTE * 


* 



***************** 



***************** 



******G3 *********** 



IJMTMXXX 
B 
.* 
YES .* 



*****C4********** 



****C3********* 


* 




EXIT TO * 


* 


INCREMENT 


► COREXIT * 


* 


TOTAL LINES 


RTN. * 


* 


READ 


*************** 


* 


COUNTER 






*************** 








X 

***** 








*EG * 








* A2* 


X 




* * 


****D3********* 




* 


ENTRY FROM * 






COREXIT * 






ROUTINE * 






******* 4 


t******* 







*****H2********** 

* SET KEYBOARD * 

* CORRECTION * 

* BIT ON IN * 

* ERROR IND. * 

* BYTE * 
***************** 



** 

* 

* 

* 

* 

* 

** 


***J2********** 

INCREMENT * 

KEYBOARD * 

CORRECTION * 

COUNTER * 

* 

*************** 




!x 

X 

**** 



************* 



**H4******* 



*********** 



*****J3********** 

* RESTORE * 

* CCB'S * 

* NORMAL * 

* CCW ADDR. * 

* * 
***************** 
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Chart EG. ORMOD: GET Macro, Unblocked Records (Section 3 of 4) 



***** 

*EF * 
* C4* 



.* TWO *. 


.* ONE 


.* I/O AREAS *. NO 


.* I/O AREA 


*.AND WORKA OR .* 


...X*. AND 


♦ . TWO I/O .* 


*. WORKA 


♦.AREAS.* 





*****A5********** 

* PUT * 
♦HIGH ORDER ADDR* 

* IN REG 14 AND * 

* CCW BYTE * 
♦COUNT IN REG 13* 



*****£ 1 ********** 

* * 

* SWITCH ♦ 

* I/O ♦ 

* AREAS ♦ 

* * 
***************** 



*****D1 ********** 



***************** 



*****£!********** 

* CALCULATE ♦ 

* AND STORE ♦ 

* DATA ADDR * 

* IN NEXT READ * 

* CCW * 
***************** 



*****Fl********** 

* SAVE REG 1 * 

* AND SET UP * 

* CCB * 

* * 
***************** 



******Gi*********** 

SVC 

* GET ♦ 

RECORD 



*********** 



*****Hi ********** 

♦ RESTORE REG 1 ♦ 
♦PUT HIGH ORDER ♦ 
♦ADDR IN REG 14 ♦ 

♦ AND CCW BYTE * 
♦COUNT IN REG 13+ 
***************** 



IJMZEXXX 

*****B4********** 
♦PUT HIGH ORDER * 
♦ADDR IN REG 14 ♦ 

♦ CCW BYTE ♦ 

♦ COUNT IN * 

♦ REG 13 ♦ 
***************** 





* 
* 


1 ♦ 
♦ 
**** 


X 

2********** 

* 

WITCH ♦ 

I/O ♦ 

AREAS ♦ 




IJMTNXXX X 

*****C3******* 
* 

♦ MOVE RECORD 

♦ IN IOAREA1 

♦ TO WORKA 



**************** 



*****D2^*****+^ 

♦ CALCULATE ♦ 

♦ AND STORE ♦ 

♦ DATA ADDR IN ♦ 

♦ NEXT READ CCW ♦ 

♦ * 
***************** 



****E 2 *********** 
SVC 
GET ♦ 
RECORD 



************* 



***************** 



*****D3 ********** 

* * 

* SAVE REG 1 ♦ 

* AND SET ♦ 

* CCB ♦ 

* * 
***************** 



******£ 3 *********** 

SVC 

♦ GET ♦ 

RECORD 



************* 



**** 

* * 

* 2 ♦ 

* * 
**** 



BYTE ♦. NO X 



*****D4********** 

* INCREMENT * 

* REG 14 BY ONE * 

* AND DECREMENT * 

* BYTE COUNT * 

* BY ONE * 
***************** 



***************** 



IJMTOXXX X 

*****H3 ********** 

* MOVE RECORD ♦ 

* TO WORK A ♦ 

* FROM I/O ♦ 

* AREA * 

* * 
***************** 



IJMZDXXX 

*****F4********** 

♦ SET UP MOVEt ♦ 

♦ MOVE TO WORK- ♦ 

♦ AREA AND SET ♦ 

♦ UP NEXT GET ♦ 

♦ * 
***************** 



******G4*********** 

SVC 

♦ GET ♦ 

RECORD 

* * 

************* 



*****H4********** 



************ 



♦ SET UP ♦ 
X+ RECSIZE ♦. 

♦ REG * 

♦ * 
***************** 



.X*. WORKAREA 



*****J4********** 

* * 

* PUT BEG. OF * 
X* RECORD IN ♦ 

* REG. 13 ♦ 

* * 
***************** 



*****«! ********** 

♦ INCREMENT ♦ 
♦REG. 14 BY ONE ♦ 

♦ AND DECREMENT ♦ 

♦ BYTE COUNT ♦ 

♦ BY ONE ♦ 
***************** 



IJMZLXXX 

*****K3********** 

♦ DECREMENT ♦ 

♦ BYTE COUNT BY ♦ 

♦ ONE AND MOVE *. 

♦ RECORD TO ♦ 

♦ WORKAREA ♦ 
***************** 



*****C5********** 

* INCREMENT ♦ 

* REG 14 BY ONE * 

* AND DECREMENT * 

* BYTE COUNT * 

* BY ONE * 
***************** 



IJMZFXXX 
IJMZBXXX 

*****D5********** 



***************** 



*****F5********** 

* CALCULATE * 

* BEGINNING OF * 

* RECORD AND * 
*STORE IN IOREG * 

* REG * 
***************** 



* SET UP * 

* RETURN TO * 

* USER ADDR * 

* * 
***************** 



****«5********* 

* RETURN TO ♦ 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart EH. 



ORMOD : 



GET Macro, Unblocked Records (Section 1 of 1) 



IJMSAXXX .*. 



.*EE-J1,K2 
. EP-F2 
EQ-E2 



**** 

* * 

* 2 * 

* * 
**** 



*****d ********** 

* * 

* POST EQUIP. * 

* CHK. ERROR *X 

* TO CCB * 

* * 
***************** 



*****F1********** 

* POST * 

* NONRECOVERY * 

* ERROR TO *X 

* CCB * 

* * 
***************** 



*****H1********** 



***************** 



CHANNEL 
DATA 
CHECK 



***************** 



*****C3********** 

* * 

* SAVE REG. 1 * 

* AND SET * 

* UP CCB * 

* * 
***************** 



******D3*********** 

* SVC * 

GET 

* RECORD * 

************* 



*****E3********** 

* * 

* RESTORE * 

* CCB * 

* POINTER * 

* * 
***************** 



*****P3******* 

* * 

* TURN * 

* INTERV. REQD. * 

* OFF * 

* * 
************** 



**** *YES 

* * 

* 1 * 

* * 
**** 



*****H3******* 

* * 

* SET * 

* IJMSCXXX * 

* TO BRANCH * 

* * 
************** 



*. YES 
OVERRUN ,*..X 
.* 




** 


EOF 


.* 

*. .* ) 
*NO ** 
* 
* 


< 

!<** 
* 
* 




*. • 

*. .* 

*NO 


X * * 
**** **** 




X 

**** 


* * 




* * 


* 2 * 






* 3 * 



****H4********* 

* RETURN * 
*TO ROUTINE ADDR* 

* IN REG. 14 * 
*************** 



*****j4********** 

* * 

* PUT EOF ADDR * 
IN * 

REG 13 * 

***************** 



.X* 



****K4********* 

* * 

* BRANCH EOF * 

* * 
*************** 



*****Q5********** 



***************** 



**** 

* * 

* 3 * 

* * 
**** 
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Chart EJ. ORMOD: GET Macro, Blocked Records (Section 1 of 5) 



****A2********* 

* ENTRY FROM * 

* GET MACRO * 

* EXPANSION * 
*************** 



IJMAIXXX 

*****B2********** 
♦SAVE REGISTERS * 

* i, 13, AND 14 * 

* AND ZERO * 

* RETRY * 

* COUNTERS * 
***************** 



*****C2*^**** 

* * 

* SET 

* IJMBAXXX 

* TO NOP 

* * 
************** 



YES .* BLKSIZE *. 
...*. GT 

*. 255 .* 



*****B3******* 

* * 

* SET LENGTH 

* OF XC INST 

* TO BLKSUE 

* * 
************** 



*****C3******* 

* * 

* SET 

* IJMBJXXX 

* TO NOP 

* * 
************** 



**** 

* * 

* 2 * 

* * 
**** 



.*. 


IJMBIXXX X 


D2 *. 


*****03********** 


.* *. 


* * 


NO .* FIRST *. 


* ZERO * 


...*. TIME .* 


* OUT * 


*. .* 


* IOAREA * 


*. .* 


* * 


X *. .* 


***************** 


***** *YES 




*EK * 




* E3* 




* * . 




* 




IJMBAXXX X 




.♦. 


X 


E2 ♦ . 


*****E3********** 


.♦ *. 


* BUMP IOAREA * 


.* *. YES 


* PTR AND * 


*. 2 IOAREAS ...... 


* DECREMENT * 


*. .♦ 


* BLKSIZE * 


*. .* 


* BY 255 * 


♦ . .♦ 


***************** 



*****l=2******* 

* * 

* SET 

* IJMBAXXX 

* TO BRANCH 

* * 
************** 



***** 
*EM * 
* 04* 



♦YES 


***** 




*EK * 




* E3^ 




* * 




* 




IJMBAXXX 


X 




*****E4******* 




♦ RESET 


* 


♦ FIRST 


* 


♦ TIME 


* 


♦ SWITCH 


* 



************** 



* GET * 

* IOAREA * 

* ADDRESS ♦ 

* * 
***************** 



BLKSIZE 
GT 
255 



*****G3******* 

* * 

* SET 

* IJMBJXXX 

* TO BRANCH 

* * 
************** 



**** 

* * 

* 1 * 

* * 
**** 



**P5******* 



*********** 



*****Q4********** 

♦ RESTORE ♦ 

♦ REG 1 AND ♦ 

♦ ZERO ERROR ♦ 

♦ AND RECORD ♦ 

♦ COUNTER ♦ 
***************** 



**H2********** 


*****H3********** 


*****H4********** 


MOVE 


* 


* SAVE * 


* 


CALCULATE ♦ 


ADDRESS OF 
CCU CHAIN 


* 


* REG I * 


* 


AND SAVE ♦ 


* 


♦ AND SET ♦ 


* 


END OF ♦ 


TO CCB 


* 


* CCB * 


* 


IOAREA * 




* 


* * 


* 


ADDRESS ♦ 


*********** 


*** 


***************** 


***************** 


X 








X 


**** 








***** 


* * 








*EK * 


* 1 * 




X 




* B2^ 


* * 




****** J3*********** 




♦ ♦ 


**** 




♦ SVC ♦ 

GET 

♦ RECORD ♦ 




♦ 
IJMBDXXX 



************* 
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Chart EK. 



ORMOD : 



GET Macro, Blocked Records (Section 2 of 5) 



UNIT *. 
CHECK OR 
.EXCEPTION.* 



* CALCULATE * 
X* THE RECORD * 

* NUMBER * 

* * 
***************** 



NO .* IS THIS *. 

...*. ERROR BEING . 

*. RETRIED .* 



*****E2********** 

* SWAP * 

* IOAREAS * 

* AND CCW * 

* CHAIN * 

* ADDRESSES * 
***************** 



.♦SECOND * 
TIME FOR 
SAME 
. RECORD 



IJME4XXX 
E 
.* 
YES NO .* 



***** 
*EM * 
* E4* 



*****F3 ********** 

* * 

* INCREMENT * 

* RECORD * 

* COUNTER * 

* * 
***************** 



NEED 
ANOTHER 
RECORD 



IJMT8XXX 
YES 



***** 

*EJ * 

* 62* 

* * 



*****H3******* 

* * 

* SET 

* IJMBAXXX 

* TO BRANCH 

* * 
************** 



IS THIS 

ERROR 
RECORD 



F4 *. 
* CHAN. * 

DATA OR 

CHAINING 

CK. 



G4 *. 

UNIT 
CHECK 



*****H4******* 

* * 

* SET 

* IJMSCXXX 

* TO NOP 

* * 
************** 



****J4********* 

* EXIT TO * 

* CORE RESIDENT * 

* ERROR ROUTINE * 
*************** 



***** 

*EL * 

* B2* 

* * 



X 
***** 
*EM * 
* DA* 
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Chart EL. 



ORMOD: 



GET Macro, Blocked Records (Section 3 of 5) 



****A2********* ! 

RETURN FROM * 
CORE RESIDENT * 

ERROR RTN. * 
*************** 




X '. 



*****d********** 

* SET NONREC * 

* BIT IN ERROR * 

* IND- BYTE *X 

* AND SET UP * 

* COREXIT ADDR. * 
***************** 



****oi******* 

* EXIT TO 

* COREXIT 

* ROUTINE 
************* 



*EM * 

* D4* 

* * 



**** 

* * 

* 1 * 

* * 
**** 

.xl 



*****£ 2 ********** 

* INCREMENT * 

* EQUIP. CK. * 

* COUNTER * 

* AND RETRY * 

* COUNTER * 
***************** 



RETRY *. NO 

10 .*... 
TIMES .* 



*****G2********** 

* SET * 

* EQUIP. CK * 

* BIT ON IN * 

* ERROR IND * 

* * 
***************** 



*****H2********** 

* INCREMENT * 

* EQUIP. CK. * 

* AFTER 10 * 

* RETRIES * 

* COUNTER * 
***************** 



*****F3********** 

* INCREMENT * 

* WLR COUNTER * 

* AND RETRY * 

* COUNTER * 

* * 
***************** 



G3 *. 
* 

RETRY 

10 
TIMES 



*YES 



*****H3* ********* 

* * 

* SET WLR * 

* BIT ON * 

* ERROR IND * 

* * 
***************** 



*****J3********** 

* INCREMENT * 

* WLR AFTER * 

* 10 RETRIES * 

* COUNTER * 

* * 
***************** 



*****D5**** ****** 

* * 

* CALCULATE * 

* LAST CCW * 

* ADDRESS * 

* * 
***************** 



*****£ 5 ********** 



***************** 



******P5******** 

* SVC 
GET 
* RECORD 

************* 



**G4******* 



*****H5*** 



***************** 



***** 
*EK * 
* B2* 
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Chart EM. ORMOD: GET Macro, Blocked Records (Section 4 of 5) 



IJMTDXXX .*. 



*****gl********** 

* * 

* INCREMENT * 

* DATA CHECK * 

* COUNTER * 

* * 
***************** 



YES .* NONRECOV 
...*. OR EQUIP 
*. CHECK 



****C2********* 

* ENTRY FROM * 

* COREXIT RTN. * 

* *J3 * 
*************** 



*****B3********** 

* SET KEYBOARD * 

* CORRECTION * 

* BIT ON IN * 

* ERROR INO. * 

* * 
***************** 



*****C3********** 

* INCREMENT * 

* KEYBOARD * 

* CORRECTION * 

* COUNTER * 

* * 
***************** 



*****£ i ********** 

* * 

* INCREMENT * 

* RETRY * 

* COUNTER * 

* * 
***************** 



RETRY 

5 
TIMES 



MTCXXX 
*****gl********** 

* SET DATA * 

* CK. * 

* BIT ON * 

* IN ERROR * 

* IND. * 
***************** 



IJMTEXXX .*. 

D3 *. 
.* DATA *. 
YES .* CK., EQ. *. 
...*. CK., NONREC .* 
*. CK .* 



.*EJ-C4 
. EK-E3,E4 
. EL-B3,C3 
X 
*****04********** 



***************** 



* SET UP * 

* COREXIT * 

* ADDRESS * 

* * 
***************** 



****H3********* 

* EXIT TO * 

* COREXIT RTN. * 

* *J3 * 
*************** 



RE-ENTRY POINT 
FROM COREXIT 
ROUTINE IS 
AT BLOCK C2. 



*****P4********** 

* INCREMENT * 

* TOTAL * 

* LINES * 

* COUNTER * 

* * 
***************** 



GA *. 
.* * 

WORKAREA 



*****G5********** 



***************** 



*****H4********** 

* PUT * 

* BEGINNING * 

* OF RECORD * 

* IN IOREG * 

* * 
***************** 



*****j5********** 

* PUT * 

* RECORD SIZE * 
.X* IN * 

* RECSIZE * 

* * 
***************** 



****K4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart EN. ORMOD: GET Macro, Blocked Records (Section 5 of 5) 



****A2********* 

* ENTER CORE * 

* RESIDENT * 

* ERROR ROUTINE * 
*************** 



**** 

* * 

* 2 * 

* * 
**** 



UNUSED 
SENSE 
BITS 



CHANNEL 
DATA 
CHECK 



*****D1********** 



***************** 



*****F\********** 



NONRECOVERY 

ERROR TO 

CCE 



*X *. NONRECOVERY 



***************** 



****H1********** 

POST DATA * 

CHK TO *X 

CCB * 

* 

**************** 



***************** 



*****C3 ********** 

* * 

* SAVE REG. 1 * 

* AND SET * 

* UP CCB * 

* * 
***************** 



******D3*********** 

* SVC * 

GET 

* RECORD * 

************* 



*****£3********** 

* * 

* RESTORE * 

* CCB * 

* POINTER * 

* * 
***************** 



*****F3******* 

* * 

* TURN 

* INTERV. REGD. 

* OFF 

* * 
************** 



*****D5********** 



***************** 



**** 

* * 

* 1 * 

* * 
**** 



**** 

* 1 * 

* * 
**** 



* 2 * 

* * 
**** 



*****H3******* 

* * 

* SET 

* IJMSCXXX 

* TO BRANCH 

* * 
************** 



J3 *. 

.* *. 

EOF 
**. .** 

~**NQ 

X 

**** 

* * 

* 3 * 

* * 
**** 



****H4********* 

* RETURN * 
♦TO ROUTINE AODR* 

* IN REG. 14 * 
*************** 



*****J4********** 

* * 

* PUT EOF ADDR * 



****K4********* 

* BRANCH TO * 

* EOF ROUTINE * 

* * 
*************** 
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Chart EP. ORMOD: RDLNE Macro, Unblocked Records 



****A2********* 

* ENTRY FROM * 

* RDLNE MACRO * 

* EXPANSION * 
*************** 



SAVE RETURN 

ADDRESS TO 

USER 



*****C2 ********** 

* INCREMENT * 

* KEYBOARD * 

* CORRECTION * 

* COUNTER * 

* * 
***************** 



*****02 ********** 

* MODIFY CCW, * 
♦ZERO I/O AREA, * 

* SAVE REG 1, *. 
*AND SET UP CCB * 

* * 
***************** 



******03*********** 

SVC 

* READ * 

.X BACKWARD ON 

* LINE * 

************* 



*****£2********** 



**£4******* 



***************** 



*********** 



****Fl********* 

* RETURN FROM * 

* CORE RESIDENT * 

* ERROR ROUTINE * 
*************** 



*****(CORE RESIDENT 
*EH *ERROR ROUTINE) 
* 62* 
* * 



*****G2********** 



***************** 



WRONG ♦ . YES 
LENGTH .*.... 
RECORD .* 



*****H5********** 

* SET WRONG * 

* LENGTH IN * 
.X*ERROR INDICATOR* 

* BYTE * 

* * 
***************** 



*****J2********** 

* SET EQUIP * 

* CHECK BIT IN * 
♦ERROR INDICATOR*. 

* BYTE * 

* * 
***************** 



*****K4********** 

* * 
♦SET DATA CHECK * 

* IN ERROR *. 
♦INDICATOR BYTE * 

* * 
***************** 



* RESTORE * 
X* RETURN ADDR * 

* TO USER * 

* * 
***************** 



****K5********* 

* EXIT TO * 

* PROBLEM * 

* PROGRAM ♦ 
*************** 
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Chart EQ. ORMOD: RDLNE Macro, Blocked Records 



* i * 

* * 
**** 



****A1********* 

* ENTER FROM * 

* RDLNE MACRO * 

* EXPANSION * 
*************** 



*****B1 ********** 

* SAVE REG. 13 * 

* AND REG. 14 * 

* FOR * 

* RETURN * 

* * 
***************** 



*****d********* 

* SAVE 

* INTERRUPTED 

* CCW 

* POINTER 
* 
**************** 



*****0l ********** 

* MOVE * 

* INTERRUPTED * 

* CCW TO * 

* CNTRL LOC. * 

* OF DTF * 
***************** 



*****E l********** 

* INSERT READ * 

* BACKWARD * 

* W/CORRECTION * 

* COMM. CODE * 

* * 
***************** 



*****Fl ********** 

* ALTER CCW * 

* DATA ADDRS. * 

* BY SUBTR * 

* LOGICAL * 

* RECSIZE-1 * 
***************** 



*****Gi********** 

* ZERO * 

* LOGICAL * 

* RECORD OF * 

* I/O AREA * 

* * 
***************** 



*****H1 ********** 

* ZERO * 

* ERROR * 

* INDICATOR * 

* BYTE * 

* * 
***************** 



*****jl********** 

* SET * 

* COMMAND * 

* CHAIN BIT * 

* OFF * 

***************** 



****** 1 ********** 

* STORE NEW * 

* CCW ADDRS. * 

* OF CNTRL * 

* LOCATION * 

* * 
***************** 



*****A2********** 

* * 

* SAVE REG 1 * 

* AND SET * 

* CCB * 

* * 
***************** 



******B2*********** 

SVC 

* RD. BKWRD * 

ON-LINE 

* (EXCP) * 

************* 



**C3******* 



*********** 



*****02********** 

* * 

* RESTORE * 

* REG. 1 TO * 

* A (DTF) * 

* * 
***************** 



****E3********* 

* RETURN FROM * 

* CORE RESIDENT * 

* ERROR RTN. * 
*************** 



***** 
*EH * 
* B2*- 



*****P2********** 

* * 

* RESTORE * 

* NORMAL * 

* CCW * 

* * 
***************** 



.* RECFORM 
.X*. = UNDEF OR 
*. UNDBLK . 



.* WRONG *. YES 
•X*. LENGTH .*.... 
*. RECORD .* 



.X* 



*****G5********** 

* SET WRONG * 
LENGTH IN * 

ERROR * 
INDICATOR * 

* BYTE * 
***************** 



*****H2********** 

* SET EQUIP * 

* CHECK BIT * 

* IN ERROR *. 

* INDICATOR * 

* BYTE * 
***************** 



IJMT2XXX .*. 



*****J4********** 

* SET DATA * 

* CHECK IN * 

* ERROR *. 

* INDICATOR * 

* bY I t * 
***************** 



IJMT3XXX 

*****H5********** 

* RESTORE * 

* INTERRUPTED * 
...X* CCW A) RES * 
X * POINTER * 

* * 
***************** 



*****J5********** 

* RESTORE * 

* REGS. 13 AND * 

* 14 FOR * 

* RETURN * 

* * 
***************** 



****«5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart ER. ORMOD: READ Macro 



****B3********* 

* ENTRY * 

* FROM READ * 

* EXPANSION * 
*************** 



***************** 



*****D3********** 

* ZERO ERROR * 

* INDICATORS * 

* AND RETRY * 

* COUNTERS * 

* * 
***************** 



*****E3******* 

* PUT CCW 

* ADDR IN 

* CCB IN DTF 

* TABLE 

************** 



*****F3********** 

* SET UP * 

* REFERENCE * 

* TO NEW * 

* CCB * 

* * 
***************** 



******G3 *********** 



*****H3*** 



RESTORE 
REGS It 
13 AND 14 



**********: 



****j 3 ********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart ES. ORMOD: RESCN Macro (Section 1 of 2) 



****A1********* 

* ENTRY FROM * 

* RESCN MACRO * 

* EXPANSION * 
*************** 



***************** 



*****Ql********** 



***************** 



*****Ql********** 



***************** 



*****El********** 



*****B2********** 



***************** 



*****C2********** 

* * 

* SET * 

* IJMR3XXX * 

* TO NO-OP * 

* * 
***************** 



* ZERO OUT * 

* ERROR IND. * 

* BYTE * 

* * 
***************** 



*****£2********** 



*****B4********** 



***************** 



*****£^********** 

* * 

* SET UP * 

* REFERENCE TO * 

* NEW CCB * 



******04*********** 



************* 



***** 
*ET * 
* C3* 



**E$******* 



***************** 



* * * * * p i * * * * * * * * * * 

* * 

* PUT READ * 

* BACKWARD * 
*COMMAND IN CCW * 

* * 
***************** 



*****Q\********** 

* * 

* SET COMMAND * 

* CHAINING BIT * 

* OFF * 

* * 
***************** 



***************** 



*****F2**** 



***************** 



*****G2********** 



***************** 



*****H2********** 

* * 

* SET POINTER * 

* TO START OF * 

* IOAREA * 

* * 
***************** 



********* 



*****F$********** 

* * 

* * 

* RESTORE REG 1 * 

* * 

* * 
***************** 



UNIT CHECK 


.*... . 


.* 




*. .* 




*. .* 


X 


*YES 


***** 




*ET * 




* B4* 


X 


* * 


***** 


* 


*ET * 


IJMRLXXX 


* B2* 





* 2 * 

* * 
**** 
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Chart ET. ORMOD: RESCN Macro (Section 2 of 2) 



**** 

* * 

* i * 

* * 
**** 



***** 

*ES * 
* G4* 



*****B3********** 

* BAL TO * 

* IJMSBXXX * 
X* REG 14 * 

* RETURN * 

* * 
***************** 



*****C3********** 

* * 

* POINT * 

* REG 1 * 

* TO CCB * 

* * 
***************** 



*****C4********** 

* * 

* SET ERR. * 

* INC. * 

* IN DTF * 

* * 
***************** 



*****02********** 

* * 

* POST * 

* DATA CHECK * 

* TO CCB * 

* * 
***************** 



*****E2********** 

* * 

* SET ERR. * 

* IND. * 

* IN DTF * 

* * 
***************** 



***** 
*ES * 
* £4* 



.* 
. .* 
*YES 



*****G2********** 

* * 

* POST * 

* EQUIP. CHECK * 

* TO CCB * 

* * 
***************** 



*****H2********** 

* * 

* SET ERR * 

* IND. * 

* IN DTF * 

* * 
***************** 



**** 

* * 

* 1 * 

* * 
**** 



YES .* ANY 
...*. MORE 

*. RETRIES 



*****G4********** 

* * 

* RESET * 

* REG * 

* FOR BCT * 

* * 
***************** 



*****H4********** 

* * 

* MOVE X«6C» * 

* COMMD. * 

* CODE TO * 

* CCW * 
***************** 



*****J4********** 

* SET * 

* IJMR3XXX * 

* TO BRANCH * 

* ALWAYS * 

* * 
***************** 



***** 
*ES * 
* D2* 



* RESTORE * 
X* REG'S 13 * 

* AND 14 * 

* * 
***************** 



*****G5********** 

* * 

* RESTORE * 

* CCW ADDR * 

* IN CCB * 

* * 
***************** 



****H5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart EU. ORMOD: WAITF Macro (Section 1 of 4) 



ENTRY FROM 

WAITF MACRO 

EXPANSION 



*#*A2»»***»* 

NO-OP UNIT 

EXCEPTION 

SWITCH AT 

IJMSCXXX 

»A4 



* BAL TO CORE 
•RESIDENT ERROR 

* RECOVERY RTN 



• WRONG 

LENGTH 

*. RECORD 



IJMSQXXX .*. 



SET 

ERROR 

IND. IN DTF 



03 * 
EQUIP. 



» INCREMENT 
* EQUIP. CK 
•COUNTER IN DTF 



EXIT TO 

USER 
COREXIT 



INCREMENT 

WLR 

COUNT 

IN DTP 



»*»F2«»«*«»» 

ZERO RETRY 

CTR AND 

STORE NEW 

CCW ADDR 



»EW-E3,J4,K1 



[JMT8XXX .«. 

Gl ». 
*• CHNL • 
NO .* CHAINING 
...». OR DATA 
». CK 



• BAL TO CORE 
•RESIDENT ERROR 
» RECOVERY RTN 



INCREMENT 

RETRY 

COUNTER 



RETRIED 

9 

TIMES 



ZERO RETRY 

CTR AND 

STORE NEW 

CCW ADDR 



» INCREMENT 
» RETRY 
•COUNTER IN DTF 



NO .* RETRIED 
...». 9 

*. TIMES 



» AU« 
IJMRTXXX 



SET ERROR 
INDICATOR ON 
HEX 'SO' IN 
DTF BYTE 80 



SET ERROR 

INDICATOR 

BYTE IN 

DTF 



SET EQUIP 

CHECK ERRCR 

INDICATOR IN 

DTF 



SET LOST 
LANDMARK 

ERROR 

INDICATOR 

IN DTF 



»*K5**»***» 

INCREMENT 

WLR AFTER 

10 TRIES 

COUNTER 



IJMTBXXX .X.... 
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• Chart EV. ORMOD: WAITF Macro (Section 2 of 4) 



INCREMENT 
EQUIP. CK 
AFTER 10 
TRIES CTR 



INCREMENT 

DATA CK 

CTR IN DTF 



D1 *. 

» NON- » 
REC. OR 
EQUIP. 



WLR 
*"»N0 



**»G1»#»#»*» 

ZERO RETRY 

COUNTER 

AND STORE 

NEW CCW 

ADDR 



INCREMENT 

RETRY 

CTR 



.•DATA OR*. 
.•EQUIP. CK. * 
•.OR LAST LAND 
». MARK .* 



WRONG 
LENGTH 
RECORD 



»«***K1»****»«»* 

• SET ERROR 
•INDICATOR BYTE 

• IN DTF 

* HEX '01* 

* BYTE 80 



H2 ». 

* WAS • 

STACKER 

SELECT 

LATE 



IJMRUXXX X 

•••••J2»»»»»*» 

• INCREMENT 

• TOTAL CCW 
» CHAINS 

• EXECUTED 

• CTR 



•»K2»««»««» 

RETURN TO 

PROBLEM 

PROGRAM 



. YES 






X. 


. YES 




















» 






2» 














X 




»*»..J3»»»*»»»»«« 




• SET ERROR « 




• INDICATOR ON » 




» HEX '20' IN » 




» BYTE 80 • 




» OF DTF » 


*» 


******** 





#»*F4»*»»*»» 
SET BRANCH * 
INSTRUCTION 
AT IJMUAXXX 
TO A NO-OP 

»F5 • 



*F5 
HOPPER EMPTY BRANCH/ 
NO-OP SWITCH ON 
CHART EW-G1. IT IS 
RESET TO A BRANCH AT 
EW-G2. 



*.«*Gi**»««**»» 

REDUCE CCW 

ADDRESS BY 8 

AND PLUG 

INTO CCB 



.» SHOULD ». NO 
.HOPPER EMPTY .»... 
».BE POSTED.* 



«*«#J4**»»»«»* 

SET ERROR 

INDICATOR TO 

HOPPER EMPTY 

HEX '02' IN 

DTF BYTE 80 
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Chart EW. ORMOD: WAITF Macro (Section 3 of 1) 



. *EU-J2 
. EV-F2,G2, 
J3,JU 
IJMTFXXX X 

••••*A 1 »#»#«»» 
» SET » 
» INSTR. AT # 
« IJMSCXXX » 
» TO A BRANCH » 
» #H5 * 



NO .* IS *. 
...». THIS A TEST .• 
• . INSTR. .» 



SET 
INSTR. 
IJMUTXXX 
TO A NOP 

•J5 



AT 



SAVE 

CSW STATUS 

BITS 



• BALR TO USERS* 
•ERROR CORRECTN 
*RTN (COREXIT)» 



LOAD CCW 
AODRESS TO 
REGISTER 13 



.HOPPER EMPTY . 

• . ELSE .» 

•.BRNCH.« 

'•NO-OP 
HOPPER 
EMPTY 



»»*»H1*»»««»« 

RESET » 

HOPPER EMPTY 

NO-OP SWITCH 

TO A BRANCH 



PLUG ADDR 

OF NEW CCW 

INTO CCB 



IJMUTXXX .». 

C2 *. 

.•BRANCH ». 

ANCH.»IS A NO-OP 

...*. IF COMMAND 

•.WAS TEST . 

». »J5 .• 



LOAD REGISTER 

1 WITH 

ADDRESS OF 

ACTUAL CCB 



»*B3»****» 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



•GET AODRESS OF » 
•INTERRUPTED CCW* 
• AND SUBTRACT * 



•NO-OP 



STATUS 
MODIFIER 
. BIT ON 



INCREMENT 

CCW ADDRESS 

BY 8 



«*»E3*»*»"» 

RESTORE 

REGISTER 1 

AND RESET 

ERROR 

INDICATORS 



.•CCW OPCODE 
READ 
•.BACKWARD . 



.« IS •. 

.»CCW OPCODE 
*. READ 

•. FORWARD . 



•**»E4******** 

SET CCW 

ADDRESS IN 

CCB AND LOAD 

CCB ADDRESS 

TO REG 1 



SET SWITCH * 

AT IJMUTXXX 

TO A BRANCH 

• J5 



GET NEW CCW 

ADDRESS FROM 

TIC CCW 



»FM*«»*« 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



*«»*«A5**«******* 
•SAVE REGS 11-12* 
•PUT INPUT AREA * 
• ADDRESS IN * 
» REG 12 AND * 
•PUT COUNT IN 11* 



DECREMENT 
COUNT 
BY I 



OPCODE 

READ 
FORWARD 



»*»##D5********* 
•SUBTRACT COUNT 
» REG 1 1 FROM 
• INPUT ADDRESS 
•REG 12 TO FIND 
•START OF INPUT 



#»«E5»«»»*»* 
USE COUNT 
AS LENGTH 
TO RESET 
INPUT AREA 
FOR RETRY 



RESTORE 

REGISTER 1 

TO POINT 

TO DTF 



setting switch at 
ex-f3 to a branch to 

BYPASS EOF TEST. 



SWITCH IS AT C2. SET 
TO NO-OP AT CI. RESET 
TO BRANCH AT F2. 
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•Chart EX. ORMOD: WAITF Macro (Section 4 of 4) 



IJMSAXXX 



CHNL 

DATA 

CK 



*»D1»*«»*»*«*» D2 ». 

POST * YES .»* EQUIP 
EQUIP CK «X ». CK 

TO CCB « ». 

**N0 

* x! 

x 

»*E1«»«*»««»*« E2**"». 

POST » YES .»** NON- 

NON-REC *X *. RECOVERY 

TO CCB » «. 

*»N0 



G2 ». 

BUSOUT 



POST 
DATA CK 
TO CCB 



J2 ». 

OVERRUN 



RESET 

BYTE 12 

BIT 2 



*»##«B3«*»*»«**« 
» SAVE REG 1 
* GET CCW ADDR, 
•INCREMENT BY 8 
•AND PLUG IN CCB 
•CCB ADDR TO Rl 



» RESTORE 
* REG 1 AND 
•BYTE 12 OF CCB 



TURN 

INTERV. 

REQ. OFF 



CH ». •♦#«#C5»#»«»»*«« 

HOPPER *•. YES • POST 

EMPTY .* X» HOPPER EMPTY 

.« • TO CCB 

"*N0 

!x '. 

x 

Ok' *». ##»»*D5»******«« 

LATE *•. YES • POST LATE 

STACKER X*STACKER SELECT 

SELECT .* • TO CCB 

**NO 
Ix '. 



.» ANY •. 

.ERRORS POSTED. 
•. TO CCB .» 



FROM 

READ 

• F5 



SET 
IJMSCXXX 
TO BRANCH 



»F5 
EOF TEST AT H3 IS 
EXECUTED IF THIS 
BRANCH SWITCH HAS BEEN 
DISABLED TO A NO-OP BY 
BLOCK AT EU-A2 AS A 
RESULT OF HAVING 
SENSED EOP. 
SWITCH IS RESET TO A 
BRANCH BY BLOCKS AT G3 
OF THIS CHART AND AT 
EW-A1. 



•RESTORE REG 13 

• LOAD REG 15 

• EOF ADDR 



«##K3«*«*»«« 

EXIT TO 

USER'S EOF 

ROUTINE 



EXIT TO 
ADDRESS IN 
REGISTER 14 
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Chart EY. $$BOOR01: Open Optical Reader 



* ENTRY FROM 
» OPEN MONITOR 
» $$BCPEN 



.« BLKSIZE *. NO 

.GREATER THAN .* 

*. 256 .* 



*#«**A5***«****** 

* ZERO NO. OF * 

* BYTES EQUIVA- » 
♦LENT TO BLKSIZE* 

* IN BEGINNING * 
» OF I0AREA1 * 



STORE CONTROL 

CCW ADDRESS 

IN CCB 



ZERO FIRST 

256 BYTES OF 

IOAREA1 

FOR HDR 



* DTF * 

FILE TYPE = 
*. X«09' .* 



INSERT READ 

FORWARD 

COMMAND CODE 

IN CCW 



«D1»*»»» 
SVC 50 
CANCEL 



NO .« DTF 
...*. FILE TYPE 

*. X'OA' 



SVC 

READ 

KEY80ARD 



.* BLKSIZE » 
•.GREATER THAN 
*. 256 .» 



MOVE 256 
TO COUNT IN 
CONTROL CCW 



MOVE BLKSIZE 
TO COUNT IN 
CONTROL CCW 



.* UNIT *. 

EXCEPTION 

BIT ON IN 

CCB 



I0AREA1 

ADDRESS 

VALID 



*#»H3»«*»»**» 

STORE 

I0AREA1 

ADDRESS IN 

CONTROL CCW 



STORE 

I0AREA2 

ADDRESS IN 

CONTROL CCW 



•**G4******* 

TURN ON 

FIRST TIME 

SWITCH AND 

OPEN 

INDICATOR 



STORE 

READ BACKWARD 

CCW ADDRESS 

IN CCB 



INITIALIZE 
TO FETCH 
THE OPEN 
MONITOR 



SVC 2 

FETCH 

$$BOPEN 
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Chart FA. PRMOD: CNTRL Macro 



*A2 
PRMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



**** A 3 ********* 
ENTRY FROM * 
CNTRL MACRO * 
EXPANSION * 

*************** 



CONTROL *. NO 
= YES .*... 
*A2 .* 



****B4** : 
SVC 50 
CANCEL 



*#C2******* 



******** 



***** 03 ********** 

* * 

* PUT CONTROL * 
*CODE IN THE CCW* 

* COMMAND CODE * 

* * 
***************** 



****** E 3 *********** 

SVC 

* EXECUTE * 

CHANNEL 

* PROGRAM * 

************* 



****P3******* 

* RETURN TO 

* PROBLEM 

* PROGRAM 
************* 
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Chart FB. 



PRMOD: 



PRTOV Macro 



ENTRY FROM 

PRTOV MACRO 

EXPANSION 



• A3 
PRMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



CTLCHR 

= ASA 

*A3 



B2 *. 

*B1********* .* * 

SVC 50 * NO .* PRINTOV 

CANCEL »X *. = YES 

* *. *A3 

**YES 

x! 

X 

«C1»«»*»«« C2* **. 

SVC 7 * NO .** I/O 
WAIT *X *. COMPLETE 



.* DOES *. 
*DTF BYTE 39*. NC 

IND CHAN 12 .*... 
*. REACHED .» 



B5 *. 
.* DOES *. 
»CCB BYTE 4 

IND UNIT 
•.EXCEPTION. 



PRINT *. NO 
OVFL .*... 
.CHANNEL 9.* 



» USER *. YES 

ROUTINE .*.... 
•.SPECIFIED.* 



LOAD ADDRESS 

OF USER'S 

ROUTINE 

INTO REG 15 



**E2******* 

RESET 

CHANNEL 9 

INDICATOR 

IN DTF 



PUT SKIP TO 

CHANNEL 1 

COMMAND 

CODE IN CCW 



*»E5******* 

RETURN TO 

USER'S 

ROUTINE 



CTLCHR 

= ASA 

*A3 



SVC 
EXECUTE 

CHANNEL 
PROGRAM 



G2 *. 


G3 *. 


.* DOES *. 


.* DOES 


DTF BYTE 38*. YES YES 


.*CCB BYTE 


IND CHAN 9 .*....X....» 


. IND CHAN 


. REACHED .* 


*. REACHED 



I0AREA2 

= YES 

*A3 



»»J3******* 

RETURN TO 

PROBLEM 

PROGRAM 



WORKA *. YES. 

= YES .*..X. 

*A3 .* 



»»J5******* 

RETURN TO 

PROBLEM 

PROGRAM 
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Chart FC. 



PRMOD: 



PUT Macro (Section 1 of 3) 



«**A1******* 

ENTRY FROM 
PUT MACRO 
EXPANSION 



»A2 

PRMOD MACRO 

PARAMETER 

OPTION - DECISION 

DOES NOT APPEAR 

IN AN ASSEMBLY 

LISTING. 



.X. 



*A3****** 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



SAVE 
REGISTERS 
, 13, AND 14 



##»**A5*****«**» 
*SAVE REGISTERS 
» 11 THROUGH 14 

* AND ADDRESS 

* OF SAVE AREA 



.« WORKA ». YES 
*. OR IOAREA2 .*... 

«. = YES .» 



NO .* CONTROL 
,..*. = YES 
*. *A2 



* WORKA 

OR IOAREA2 

». = YES . 

*. *A2 .* 



RECFORM 
UNDEF 
*A2 



* EXEC INSTR IN 
•BYTES 32-33 OF 

* DTF TO LOAD 

* RECSIZE 

* INTO REG 12 



RETURN TO 
PROBLEM 
PROGRAM 



WORKA ». NO 
= YES .*... 
»A2 .» 



LOAD REG 14 

WITH ADDRESS 

OF I0AREA1 



RECFORM = ». NO 
FIXUNB .*... 
*A2 .* 



Fl 



WORKA * 

OR 

IOAREA2 

= YES 

*. »A2 .* 

"*NO 



*F3 

CONTROL = YES OR 
NEITHER CONTROL NOR 
CTLCHR SPECIFIED. 
(SEE *A2. ) 



YES 


« 


STLIST 


= 


.X.* 




YES 






*« 


*A2 





**»**G4******«*» 

* SUBTRACT 

* 1 FROM 

* IOAREA1 

* ADDRESS 
*IN REGISTER 14 



* El* 
-P 18 



.* CONTROL *. NO 

= YES .* 

*. *A2 .* 

***YES 


...X** 


PRINTOV *. NO 
= YES .*.... 
*A2 .* 

***YES '. 


X 
****J1****»*»*** 

INSERT CONTROL * 

CODE INTO CCW * 

AND RESET * 

CONTROL CODE * 

IN THE DTF * 

'.X '. 



MOVE CTLCHR 
TO CCW 
COMMAND 

CODE IN DTF 



WORKA 
= YES 
*A2 



NO .* CTLCHR 
...*. = ASA 
». *A2 



MOVE CTLCHR 
TO CONTROL 

COMMAND 
CODE IN DTF 
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• Chart FD, PRMOD: PUT Macro (Section 2 of 3) 



LOAD REG 13 

WITH RECSIZE 

FROM REG 



MOVE CTLCHR 
TO CONTROL 

COMMAND 
CODE IN DTF 



»A2 
PRMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



»*»B2**«****» 

MOVE CTLCHR 

TO CCW 

COMMAND 

CODE IN DTF 



.X. »FC-E4,E5,F4,J3,K4 



SUBTRACT 4 

FROM IOAREA1 

ADDRESS IN 

REGISTER 14 



WORKA 

= YES 

*A2 



**»«»D3*»*»»**»* 
*PUT ADDRESS OF 
» IOAREA1 (REG 

* 14) IN BYTES 

* 28-31 

* OF THE DTF 



LOAD RECORD 
LENGTH INTO 
REGISTER 12 



.P25 



LOAD ADDRESS 
OF WORKA INTC 
REGISTER 13 



*PUT ADDRESS OF 
*WORKA (REG 13) 
»IN BYTES 28-31 
» OF THE OTF 



ADJUST RECORD 

LENGTH IH 

REGISTER 12 



X 

»»*#35»**»**»» 

STORE RECORD 

LENGTH IN 

REG 12 INTO 

CCW BYTE 

COUNT 



CTLCHR 

= ASA 

*A2 



**»»D5»******* 
CLEAR REGS 
12 AND 13. 
PUT CONTROL 
COMMAND CODE 
INTO REG 12 



LOAD REG 14 

WITH A VALUE 

OF 16 



»»»»G1< 

LOAD BYTE 

COUNT FROM 

CCW INTO 

REGISTER 12, 

IOREG 



* CTLCHR = ». YES 
ASA OR YES .*... 
«. *A2 .» 



SUBTRACT 1 
FROM BYTE 
COUNT IN 

REGISTER 12 



LOAD ADDRESS 

OF WORKA 
INTO REGISTER 



RECFORM 

= UNDEF 

»A2 



»»»G3»******» 

SUBTRACT I 
FROM RECORD 

LENGTH IN 
REGISTER 12 



MOVE CONTENTS 
OF WORKAREA 
TO I/O AREA 



NO .* RECFORM = *. 
X...*. FIXUNB 

*. *A2 .* 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



VALID 
ASA 

CODE 



IS 
CODE SKIP 
.IMMEDIATE. 
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• Chart FE. 



PRMOD : 



PUT Macro (Section 3 of 3) 



**»A1**»**«»* 

PUT SPACE 

1 LINE 

COMMAND 

CODE IN CCW 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



»A2 
PRMOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



LOAD ADDRESS 
OF IOAREA2 
INTO REG Hi 



EXCHANGE THE 

ADDRESSES OF 

IOAREA1 AND 

IOAREA2 IN 

THE DTF TABLE 



*»*C4«*»*»*«* 
SUBTRACT k 
FROM IOAREA 
ADDRESS IN 
REGISTER 14 



RECFORM 

= VARUNB 

»A2 



STLIST 

= YES 
*A2 



»**C5*»*»***« 
SUBTRACT 1 
FROM IOAREA 
ADDRESS IN 
REGISTER 111 



*«*»*D1********* 
» PUT CONTROL 
* COMMAND CODE 
» IN CCW AND 
•IN NORMAL CODE 
» IN THE DTF 



•El****** 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



RESTORE 

REGISTERS 

11 THROUGH 14 



RESTORE 

REGISTERS 

12 THROUGH 14 



SAVE BYTES 3 

AND 4 FROM 

CCB 



MOVE PRINT 


« 


NO SPACE 




COMMAND CODE 




(HEX "fll'l 




INTO CCW 




***********#** 




«** 












FD *.. 






C5* 






»»« X 




.». 




Jl *. 








.* I0AREA2 * 


. NO 


= YES 




*. */ 


\2 .* 


. 



RESTORE 
REGISTERS 
12 AND 13. 



RDONLY 

OMITTED 

»A2 



* RESTORE 

* REGISTERS 
HI, 12, AND 13 



*»»#*H5********* 

* EXEC INSTR IN 
•BYTES 34-37 OF 
» DTF TO LOAD 
•IOAREA ADDRESS 

• INTO IOREG 
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Chart GA. PTMOD: GET Macro, No Translation 



****A1********* 

* ENTRY FROM * 

* GET MACRO * 

* EXPANSION * 
*************** 



***B1******* 

RESET * 

ERROR 

INDICATORS 

IN DTF 

BYTE 21 * 

************ 



* 2 * 
.*. * * 
CI *. **** 
* FIRST *. 
TIME OR *. YES. 
ERROPT= .*..X. 
IGNORE .* 



*****A2 ******* 

* TURN ON * 

* READ ERROR 

* INDICATOR. 

* BIT 7 OF DTF 

* BYTE 21 * 
************** 



IGNORED 
READ 
ERROR 



.*IS CCB * 


.* RESIDUAL 


. COUNT ZERO 


*. *E2 


*. .* 


*. .* 


*NO 



IOAREA2 

= YES 

*B4 



IJE1TLST 

******£!*********** 

FIRST 

* SVC * 

READ 

* PAPER * 

TAPE 

************* 

**** 



*****G1******* 

* RESTORE * 

* FIRST SVC * 

* TO X'OA' FROM 

* X'07« (NOP) * 

* * 
************** 



*****C3 ********** 

* EXCHANGE * 

* ADCRESSES OF * 

* IOAREA1 AND * 

* I0AREA2 * 

* *C4 * 
***************** 



*B4 
DTFPT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



*C4 
IF ONLY ONE I/O 
AREA IS SPECIFIED, 
NO CHANGE IS MADE 
IN THE ACTUAL I/O 
AREA ADDRESS. 



*****02********** 

* MOVE CCB * 

* RESIDUAL * 

* COUNT TO * 

* CCW BYTE * 

* COUNT * 
***************** 



*E2 
A RESIDUAL COUNT OF 
ZERO INDICATES THAT 
A COMPLETE RECORD 
HAS BEEN READ. 



**P2******* 



*********** 



* 3 * 

* * 
**** 



IGNORED *. NO 
EQUIPMENT .*... 
. CHECK .* 



*****F3******* 

* TURN ON * 

* EQUIP. CHECK 

* INDICATOR, 

* BIT 6 OF DTF 

* BYTE 21 * 
************** 



E4 *. 
.* * 
.* 
.X*. WLR 



I0AREA2 

= YES 

*B4 



*****B5******* 

* NOP * 

* FIRST SVC * 

* IN DTF * 

* TABLE * 

* * 
************** 



******C5*********** 

SECOND 

* SVC * 

READ 

* PAPER * 

TAPE 

****** 



*****05********** 

* RESTORE * 

* RETURN * 

* ADDRESS * 



****E 5 ********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****H2 ********* 

* EXIT TO * 

* USER'S EOF * 

* ROUTINE * 
*************** 



.* WLRERR *. NO 

. OR ERROPT = .* X*. 

*. ADDRESS .* 



*****H3********** 

* SAVE * 

* ADDRESS OF * 

* I/O AREA * 

* AND RECORD * 

* LENGTH * 
***************** 



***** J 1 ********** 

* SUBTRACT * 

* CCB RESIDUAL * 

* COUNT FROM * 

* CCW BYTE * 

* COUNT * 
***************** 



IS *. NO 
RESULT .*.... 
ZERO .* 
*. .* 

*. .* X 

*YES **** 
X * * 

* 4 * 

* * 
**** **** 

* * 

* 2 * 

* * 
**** 



****J3********* 

* EXIT TO * 

* USER«S WLR OR * 

* ERROR ROUTINE * 
*************** 



«3********** 



***************** 



****J4********* 

* CANCEL * 

* FETCH $$6CNCL * 

* (SVC 6) * 
*************** 
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Chart GB. PTMOD: GET Macro, Translation of Shifted Code 



****A1********* 

* ENTRY FROM * 

* GET MACRO * 

* EXPANSION * 
*************** 



***B1******* 

RESET * 

ERROR 

INDICATORS 

IN DTF 

BYTE 21 * 

************ 



CI *. 
.* FIRST * 

TIME OR 
ERROPT = 
. IGNORE 



*****A2******* 

* TURN ON * 

* READ ERROR 

* INDICATOR. 

* BIT 7 OF DTF 

* BYTE 21 * 
************** 



B2 *. 
.♦IS CCb ♦. 
.♦ RESIDUAL *. YES 
*. COUNT A ZERO .*... 
*. + E2 .♦ 



IGNORED 
READ 
ERROR 



* TRANSLATE * 

* CGMPLETE ♦ 

* RECORD * 

***************** 



*****£ 3 ********** 

* EXCHANGE * 

* ADDRESSES OF ♦ 

* IOAREA1 * 

* AND ♦ 

* IOAREA2 ♦ 
***************** 



*B4 
DTFPT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



*****D2 ********** 

* MOVE CCB * 

* RESIDUAL ♦ 

* COUNT TO ♦ 

* CCW BYTE * 

* COUNT * 
***************** 



FIRST 
SVC 
READ 
♦ PAPER * 
TAPE 
************* 



**** 

* * 
.* 3 * 

* * 
**** 



A RESIDUAL COUNT 
OF ZERO INDICATES 
THAT A COMPLETE 
RECORD HAS BEEN READ. 



**F2******* 



*****G1 ******* 

* RESTORE * 

* FIRST SVC * 

* TO X'OA' FROM 

* X'O?' (NOP) * 

* * 
************** 



*********** 



* 3 * 

* * 
**** 



IGNORED 

EQUIPMENT 

. CHECK . 



*****P3******* 

* TURN ON * 

* EQUIP. CHECK 

* INDICATOR 

* BIT 6 OF DTF 

* BYTE 21 * 
************** 



**** 

* * 

* 5 ♦ 



NO .♦ IOAREA2 
..♦. = YES 
*. + B4 



*****B5******* 

♦ NOP * 

♦ FIRST SVC 6 

♦ IN DTF 

♦ TABLE 

♦ * 
************** 



******C5********** 

SECOND 

* SVC * 

READ 

♦ PAPER * 

TAPE 

************* 



*****05********** 

♦ RESTORE * 

♦ RETURN * 

♦ ADDRESS ♦ 



****E5********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****H2********* 

* EXIT TO * 

* USER'S EOF * 

* ROUTINE ♦ 
*************** 



*****jl ********** 

* SUBTRACT * 

* CCB RESIDUAL * 

* COUNT FROM * 

* CCW BYTE * 

* COUNT * 
***************** 



* WLRERR *. 

OR ERROPT = . 

♦. ADDRESS .* 



*****H3********** 

* SAVE * 

* ADDRESS OF * 

* I/O AREA * 

* AND RECORD ♦ 

* LENGTH * 
***************** 



****J3********* 

* EXIT TO * 

* USER'S WLR OR * 

* ERROR ROUTINE * 
*************** 



*****K3********** 



****J4********* 

♦ CANCEL * 
♦FETCH $$BCNCL ♦ 

♦ (SVC 6) ♦ 
*************** 



* 1 * 

* * 
**** 



RESULT 


...... 


ZERO .♦ 


.* 




♦ . .♦ 


X 


♦ YES 


**** 


X 


* 




* 4 




* 


**** 


**** 


* * 




* 2 ♦ 




* * 




**** 





***************** 



* 1 * 

* * 
**** 
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Chart GC. PTMOD: GET Macro; Translation of Shifted Code, Fixed Unblocked 
Records (Section 1 of 2) 



* 2 * 

* * 
**** 



****A1********* 

* ENTRY FROM * 

* GET MACRC * 

* EXPANSION * 
*************** 



EOF 

SWITCH 

ON 



CI 



I JEBEOFR 

*****B3******* 

* TURN ON * 

* EOF SWITCH 

* IN DTF 

* BYTE 21 

* * 
************** 



ANY *. 

.* BYTES *. 

. REMAINING . 

*.FROM LAST.* 

*. GET .* 

*. .* 

*YES 



Dl *. 

.* IS *. 

.* REMAINDER *. YES 

*. GREATER THAN .*.... 

*REQ. BLOCK-* 

*.SIZE .* 



*N0 



IJE3MVRM 

*****£!********** 

* MOVE * 

* REMAINDER TO * 

* START OF * 

* I/O AREA * 

* * 
***************** 



X 

IJE3LNXT 

*****F1 ********** 

* GET ADDRESS * 

* OF THE NEXT * 

* AVAILABLE * 

* POSITION IN * 

* I/O AREA * 
***************** 



FIRST *. YES 

TIME .*... 
THROUGH .* 



****C 2 ********* 

* EXIT TO * 

* USER«S EOF * 

* ROUTINE * 
*************** 



.X*MOVE REMAINDER * 
*TO I/O AREA 256* 
*BYTES AT A TIME* 
***************** 



* COMPLETE 

EOF RECORD 
*. READ 



*****B4********** 

* SUBTRACT CCB * 

* RESIDUAL * 

* COUNT FROM * 

* CCW BYTE * 

* COUNT * 
***************** 



.* IS 

RESULT 
*. ZERO 



**** 

* * 

* 3 * 

* * 
**** 



**** 
IJE 



3CLR2 
*****D4********* 

* SCAN I/O AREA 

* FOR SHIFT 

* AND/OR 

* DELETE 

* CHARACTERS 
**************** 



. **GD-G2,H2 



IOAREA2 

= YES 

*J3 



I0AREA2 *. 
= YES .* 
*J3 .* 



*****P3******* 

* * 

* NOP FIRST * 

* SVC * 

* INSTRUCTION * 

* * 
************** 



IJE3STSD .*. 

E5 *. 
.* IS IT *. 
.* FIRST * 
...X*. CHARACTER 

*.IN RECORD.* 



IJE3EXIT 

*****F4********** 
*IJE3TRMV GD* 
*_*_*_*_*_*-*_*-,* 

* TRANSLATE * 

* THIS SEGMENT * 

* OF RECORD * 
***************** 



* TRANSLATE 

* THIS SEGMENT 

* OF RECORD 
*************** 



***** 
*GD * 
* Dl* 



IJE3READ 

****** j 1******** 
FIRST 
* SVC 
READ 
* PAPER 
TAPE 
************* 



*****G3********** 

* SAVE * 

* RECORD LENGTH * 

* ADDRESS OF * 

* I/O AREA * 

* * 
***************** 



****H3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*J3 
DTFPT MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



IJE3STTR 

*****G5******* 

* STORE 

* CURRENT 

* SHIFT TABLE 

* ADDRESS 
* 
************** 



*****H5** ******** 

* CALCULATE * 

* REMAINING * 

* RECORD LENGTH * 

* FOR SCAN * 

* * 
***************** 



YES .* REMAINING 
....*. LENGTH 
*. ZERO 



**K2******* 



* 3 * 

* * 
**** 



*********** 



**** 

* * 

* 2 * 

* * 
**** 
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Chart GD. PTMOD: GET Macro; Translation of Shifted Code, Fixed Unblocked 
Records (Section 2 of 2) 



*****A2 ********** 

* * 

* CALCULATE * 

* NET RECORD * 

* LENGTH * 

* * 
***************** 







C2 *. 
.* NET *. 
YES .* LENGTH *. 
*. LESS THAN .* 






*. BLOCK- .* 
♦.SIZE .* 

*. -* 
*NO 


IJE3RRED 

*****oi*= 

* MODIP 
*BYTE COl 

* I/O AR 

* BY CUF 

* NET L 
********= 


< 

********* 

c ccw * 

JNT AND * 
EA ADDR * 
*RENT * 
ENGTH * 

!<******** 


X 
*****D2********** 

* CALCULATE * 

* LENGTH IN * 

* EXCESS OF * 

* BLOCKSIZE * 

* (REMAINDER} * 
***************** 


**' 
*G 
* 

* 

IJE3 


< 

*** 

: * 
ji* 
* 

*EAD 


X 
*****£ 2********** 

* EXCHANGE * 

* ADDRESSES OF * 

* IOAREA1 AND * 

* I0AREA2 * 



****C3********* 

* EXIT TO * 

* USER'S ERROR * 

* ROUTINE * 
*************** 



*****D3 ********** 

* * 

* RESTORE * 

* REGISTERS * 

* 1, 14, AND 15 * 

* * 
***************** 



*. IGNORE 



***** 
*GC * 
* Bl* 



**************** 



*****p 2 ********** 

* MODIFY CCW * 
♦BYTE COUNT AND * 

* I/O AREA ADDR * 

* BY REMAINDER * 

* * 
***************** 



I0AREA2 

= YES 

*G3 



******H2*********** 

SECOND 

* SVC * 

READ 

* PAPER * 

TAPE 

************* 



*G3 
DTFPT MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



****D4********* 

* CANCEL * 

* FETCH $$BCNCL * 

* (SVC 6) * 
*************** 



****A5********* 

* * 

* IJE3TRMV * 

* * 
*************** 



*****B5********** 

* TRANSLATE * 

* THIS RECORD * 

* SEGMENT * 

* * 
***************** 



*****C5********** 

* MOVE * 

* TRANSLATED * 

* SEGMENT TO * 
*NEXT AVAILABLE * 
*POS. IN IOAREA * 
***************** 



*****Q5********** 

* UPDATE * 

* MOVE^TO AND * 

* MOVE-FROM * 

* ADDRESSES * 

* * 
***************** 



****E 5* ******** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****F4********* 

* * 

* IJE3MOVE * 

* * 
*************** 



*****G4********** 

* * 
♦SAVE NUMBER OF * 

* BYTES TO * 

* BE MOVED * 

* * 
***************** 



.* MORE *. 
* THAN 256 *. N 

BYTES TO BE .*. 
*. MOVED .* 



*****H5********** 

* MOVE THE * 

* REQUIRED ♦ 
NUMBER OF * 

* BYTES * 

* * 
***************** 



.X* 



*****J4********** 



***************** 



*****K4********** 

* * 

* UPDATE THE * 

* MOVE-FROM * 

* ADDRESS * 

* * 
***************** 



****j5********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart GE. PTMOD: GET Macro; Translation of Shifted Code, Undefined Record 
(Section 1 of 2) 



****A1********* 

* ENTRY FROM * 

* GET MACRO * 

* EXPANSION * 
*************** 



FIRST 

TIME 

THROUGH 



I0AREA2 

= YES 

*A4 



* 2 * 

* * 
**** 



IJE4CLR2 X 

***** A3 ********** 

* SCAN FOR * 

* SHIFT AND/OR * 

* DELETE * 

* CHARACTERS * 

* * 
***************** 



***** 
*GF * 
* C2* 



*A4 
DTFPT MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



*GF-C2,C4,F3 



*****Q2********** 

♦TRANSLATE THIS * 

* SEGMENT AND * 

* MOVE TO NEXT *X 
*AVAIL. POS. IN * 

* INPUT AREA * 
***************** 



IS IT 
THE FIRST 
.CHARACTER. 



* TRANSLATE * 

* THIS * 

* SEGMENT * 

* * 
***************** 



******D1*********** 

FIRST 

* SVC * 

READ 

* PAPER * 

TAPE 

************* 



IJE4STTR 

*****D3 ********** 

* SAVE * 

* CURRENT * 

* SHIFT TABLE * 

* ADDRESS * 

* * 
***************** 



*****E3********** 

* CALCULATE * 

* REMAINING * 

* RECORD * 

* LENGTH * 



****** 



r********** 



*****Fl******* 

* RESTORE * 

* FIRST SVC 

* INSTR. FROM 

* A NOP 

* (X'07M * 
************** 



**** 

* * 

* 2 * 

* * 
**** 



IOAREA2 

= YES 

*A4 



*****C5******* 

* * 

* NOP 

* FIRST SVC 

* INSTRUCTION 

************** 



******05*********** 

SECOND 

* SVC * 

READ 

* PAPER * 

TAPE 

************* 



*****E5********** 

* SAVE * 

* RECORD LENGTH * 

* AND IOAREA * 

* ADDRESS * 



****p 5 ********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****G2********* 

* EXIT TO * 

* USER'S EOF * 

* ROUTINE * 



*****H1 ********** 

* * 

* CALCULATE * 

* RECORD * 

* LENGTH * 

***************** 



IS *. NO 
LENGTH .*.... 
ZERO .* 



*YES **** 
X * * 

* 2 * 

* * 
**** **** 

* * 

* 1 * 

* * 
**** 



*****G 3**** ****** 

* * 

* CALCULATE * 

* NET RECORD * 

* LENGTH *G4 * 

* * 
***************** 



*****H3********** 

* EXCHANGE * 

* ADDRESSES OF * 

* IOAREA1 AND * 

* I0AREA2 * 

***************** 



.* ANY *. YES 
READ .*.... 
*. ERRORS .* 



NET RECORD LENGTH 
EQUALS TOTAL LENGTH 
OF SEGMENTS. 



***** 
*GF * 
* B4* 



WLR 


* 


YES 


ERROR 


.*" 


*. .. . 


.* 






*. .* 




X 


*NG 




***** 
*GF * 
* B2* 


X 




* * 


**** 




* 


* * 






* 3 * 
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Chart GF. PTMOD: GET Macro; Translation of Shifted Code, Undefined Record 
(Section 2 of 2) 



***** 

*GE * 

* K3* 

* * 



***** 
*GE * 
* J3* 



.*. 
IGNORE C2 *. 

OR .* * 
OMITTED .* 

...*. ERROPT = 



***** 
*GE * 
* B5* 



*****C3********** 

* LOAD ADDRESS * 

* OF PROPER * 

* ERROR * 

* ROUTINE * 

* * 

***************** 



*****03********** 

* SAVE RECORD * 

* LENGTH * 

* AND IOAREA * 

* ADDRESS * 

* * 
***************** 



****E3 ********* 

* EXIT TO * 

* USER'S ERROR * 

* ROUTINE * 
*************** 



*****P3********** 

* * 

* RESTORE * 

* REGISTERS * 

* 1 AND 15 * 

* * 
***************** 



*OMITTED ***** 
*GE * 
* K3* 



****D4********* 

* CANCEL * 

* FETCH $$BCNCL * 

* (SVC 6) * 
*************** 
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• Chart HA. MTMOD: CHECK Macro f Workfile 



ENTERED FROM 

CHECK MACRO 

EXPANSION 



.* WRITE *. YES 

.SPECIFIED IN .* 

*. DTF .* 



TURN ON 
CHECK SW 
(BIT 6) 
IN DTF 
3YTE 21 



CI *. 

.•NOTEPNT*. 
OPTION 

SPECIFIED 
. IN DTF . 

*. *C2 .* 

"*YES 



D1 *. 

.*N0TEPNT*. 

IN DTF 

= POINTS 

*C2 



*C2 
DTFMT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



»«D2*»*»*»» 

INCREMENT 

BLOCK 

COUNTER 

BY ONE 



C4 *. 
.* USER *. 
ERROR RTN *. 

ADDRESS 
•SPECIFIED. * 



IJFWPRCS X 

*»»»*Dl+#*»****»* 

* SAVE REGS 

* 15, 0, 1 
*AND LOAD ERROR 

* RTN AND I/O 
*AREA ADDRESSES 



ERROPT 

= ADDRESS 

»C2 



***E2******* 

TURN OFF 

CHECKPOINT 

INDICATOR 

IN DTF 



.*NOTEPNT* 
* = POINTS 
OR BLANK 
*. *C2 



.* CCW ». YES 
». SPECIFY READ ...... 

*. BACKWARD .* 



*»»»F3********* 

» RETURN TO * 
♦PROBLEM PROGRAM* 
*VIA REGISTER 14» 



» LOAD USER'S * 
» EOF ADDRESS * 
"INTO A REGISTER* 



*«*G2***#***» 

SUBTRACT 2 

FROM BLOCK 

COUNTER FOR 

A READ 

BACKWARD 

NO 



RESTORE 
REGISTERS 
15, 0, 1 






* LOAD I/O AREA 

* ADDRESS AND 
♦RESTORE RETURN 

* ADDRESS 



**»*»Hl+******* 

* SET READ * 

* NEXT RECORD 

* SWITCH 
*IN DTF (BIT 2, 

* BYTE 1+4) * 



EXIT TO 

USER'S EOF 

ROUTINE 
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• Chart HB. MTMOD: CNTRL Macro f Data Files 



»***A1***»*«*» 

ENTRY FROM 

CNTRL MACRO 

EXPANSION 



ENTRY FROM 

CNTRL MACRO 

EXPANSION 



UNDEFINED 



ENTRY FROM 

CNTRL MACRO 

EXPANSION 



SVC 7 WAIT 

FOR I/O 

COMPLETE 



SVC 7 WAIT 

FOR I/O 

COMPLETE 



GET NEW 

COMMAND CODE 

FOR CCW 



MODIFY 
OP CODE 
IN CCW 



GET THE 

CCW OP 

CODE 



»E1**»»*«» 

SVC 

EXECUTE 

CONTROL 

OPERATION 



SVC 

EXECUTE 

CONTROL 

OPERATION 



»*D5*»*«»»« 

SVC 

EXECUTE 

CONTROL 

OPERATION 



SVC 7 WAIT 

FOR I/O 

COMPLETE 



SVC 7 WAIT 

FOR I/O 

COMPLETE 



RESTORE OLD 

CP CODE IN 

DTF CCW 



RESTORE OLD 

OP CODE IN 

CCW 



RESTORE OLD 

OP CODE IN 

CCW 



**G2«*«»*»* 

RETURN TO 

PROBLEM 

PROGRAM 



#*G5******* 

RETURN TO 

PROBLEM 

PROGRAM 



RETURN TO 
PROBLEM 
PROGRAM 
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• Chart HC. MTMOD: CNTRL Macro, Workfile 



ENTERED FRCM 

CNTRL MACRO 

EXPANSION 



MODIFY THE 

OP CODE IN 

THE CCW 



SVC 

EXECUTE 

CONTROL 

OPERATION 



RETURN TC 
PROBLEM 
PROGRAM 
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• Chart HD. MTMOD: FEOV Macro 



UNDEFINED 



ENTRY FROM 

FEOV MACRO 

EXPANSION 



*»»B3«*»»**» 

ENTRY FROM 

FEOV MACRO 

EXPANSION 



tNTRY FROM 

FEOV MACRO 

EXPANSION 



TURN ON * 
FEOV SWITCH 
IN DTF 
BYTE 36 



IJFVFEO X 

»»**»C3**»**»* 

* TURN ON * 

* FEOV SWITCH 

* IN DTF 

* BYTE 36 



IJFUFEO 

*»«»»C5»»***»* 

» TURN ON * 
* FEOV SWITCH 
» IN DTF 
» BYTE 36 



SAVE 

REGISTERS 

10-14 



RDONLY 

OMITTED 

*H2 



RDONLY 


» 


. YES 


OMITTED 






*H2 




















NO 






) 


< 






**F1* !•«•#! 






SAVE 






ACDRESS OF 






REGISTER 






SAVE AREA 




* 


*********** 


* 


»* 




X . 







SAVE 

REGISTERS 

6-14 



SAVE 

REGISTERS 

5-14 



ADDRESS OF 
REGISTER 
SAVE AREA 



•»»F5»»»***» 

SAVE 

ADDRESS OF 

REGISTER 

SAVE AREA 



• A3» 
IJFVFEt 



MTMCD MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 
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• Chart HE. 



MTMOD: 



GET Macro (Section 1 of 3) 



ENTRY FROM 
GET MACRO 
EXPANSION 



...A3»*»***» 

ENTRY FROM 

GET MACRO 

EXPANSION 



»A4 
MTMOD MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR IN 
AN ASSEMBLY 
LISTING. 



IJFFGET X 

»»***C1«*»«»*««* 

* STORE 

* REGISTERS 

* 9-14 AND SAVE 

* ADDRESS OF 

* SAVE AREA 



STORE 

REGISTERS 

10-14 



IJFVGET X 

»***»C3*»»»»**«» 

* STORE 

* REGISTERS 

* 5-14 AND SAVE 

* ADDRESS OF 

* SAVE AREA 



UNDEFINED 



»*»*C5»******» 

ENTERED FROM 
GET MACRO 
EXPANSION 



EXECUTE 
DEBLOCKING 
SUBROUTINE 



*HM-F 1 
HR-E1 
HR-K1 



WORKA 
( IN DTF) 
. EQ YES 
*. »D2 .» 



»D2 
DTFMT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING 



EXECUTE 

WORK AREA 

SUBROUTINE 



GET CURRENT 
I/O AREA 

ADDRESS AND 
BLOCKSIZE 



RESTORE 

REGISTES 

9-14 



RESTORE 

REGISTERS 

10-14 



»««»»H1»««*»«»»«» 
♦LOAD USER IOREG* 
* WITH ADDRESS * 
» OF CURRENTLY * 
» AVAILABLE * 
« OUTPUT AREA » 



.* READ ». Y 
*. ( IN DTF) EQ .*. 
«. BACK .* 
». »D2 .» 



STORE 

REGISTERS 

7-14 AND SAVE 

ADDRESS OF 

WORK AREA 



****F5*»*«»*»»* 

GET CURRENT 

I/O AREA 

ADDRESS, SAVE 

BLOCKSIZE 



EXECUTE 

DEBLOCKING 

ROUTINE 



NO .* WORKA * 
...». ( IN DTF) EQ 
*. YES .» 



J1 *. 

.* TRUNC « 
REQUIRED 
DURING 
. CLOSE 



•*K1»*»**»«* 

SVC 9 

RETURN TO 

B-TRANSIENT 



*#J2*«»»»»» 

RETURN TO 

PROBLEM 

PROGRAM 



* WORKA 
(IN DTF) 
«. YES 



. EXECUTE 
WORK AREA 
SUBROUTINE 
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• Chart HF. 



MTMOD: 



GET Macro (Section 2 of 3) 





.«HE- 
. HG- 


E3 
C2 


H3 


IJFVGTR 


X 
*A1»»»««« 

GET 
BLOCKSIZE 


„.* 



EXECUTE 

READ 

SUBROUTINE 



IJFVGTB X 

••»*»C1*«****» 
» SUBTRACT 

* RESIDUAL 

* COUNT FROM 

* BLOCKSIZE 



IJFVER1 
ADDRESS .«* 



RESET FIRST 

TIME SWITCH 

IN DTF 



**»C2»««»«**» 

GET 

ADDRESS OF 

USER WLR OR 

ERROR EXIT 

ROUTINE 



•IGNORE «»»• 
. OR *hZ 
•OMITTED * Bl 



HE-J3, K3 
HM-G4, J5 
HR-E4 



IJFVEX3 X 

«*»*»B5*»»*»»« 

* STORE 

* ADDRESS 

* OF CURRENT 

* I/O AREA 

* IN IJFVB1 



##»»»C5***»»«»»» 

* STORE ADDRESS 

* OF CURRENT 

* I/O AREA AND 

* LNG OF I/O 
•AREA BLOCKSIZE 



«**D1»»»**»»» 

GET 

BLOCKSIZE 

FROM RECORD 

JUST READ 



GET 

ADDRESS 

OF USER 

WLR ROUTINE 



NO .* READ *. 
...*. (IN DTF) EQ .* 
*. BACK .» 
». *F3 .* 



»»..*E2»**«***** 
« RESTORE REGS 
» 5-13 AND SAVE 

* REGS 15,0,1, 
»AND ADDRESS OF 

* SAVE AREA 



*»»»F2»»»«»»*« 

LOAD OP CODE 

AND DATA 

ADDRESS OF 

DTF CCW 



» EXECUTE » 
•USER ROUTINE 
« SPECIFIED 
BY REGISTER 14 



**.»E3«»**»»»»#* 

RESTORE • 

USER REGS » 

6-13, STORE • 

REGS 0, 1, 15 * 



• F3 
DTFMT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



»F4 
MTMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



RDONLY 
OMITTED 



»*»*«J2»«»*»»»»* 
» RESTORE REGS 
» 15, 0,1 AND 
•SAVE REGS 5-14 
•AND ADDRESS OF 
» SAVE AREA 



• RESTORE 

• REGISTERS 

• 15,0, 1 AND 
•SAVE REGISTERS 



SVC 9 

RETURN TO 

B-TRANSIENT 



#.»»F5»***»»»»« 

LOAD NUMBER 

OF BYTES LEFT 

IN I/O AREA 

INTO USER 

REGISTER 



•»***G5******»**» 

•LOAD USER IOREG* 
» WITH ADDRESS • 

• OF CURRENTLY • 

• AVAILABLE • 
•OUTPUT RCD AREA* 



.* TRUNC • 
REQUIRED 
DURING 
. CLOSE 



• •J5» 
RETURN TO 
PROBLEM 
PROGRAM 
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• Chart: HG. MTMOD: GET Macro (Section 3 of 3) 



IJFVBDB X 

»**»»B2»***«**» 
» GET 
» START AND 
* END ADDRESS 
» OF BLOCK 



C2 *. 

.* HAS *. 
* ENTIRE *. YES 

BLOCK BEEN .»... 
». PROC .« 



RESTORE 

REGISTERS 

7-14 



Al* 
JFVGTR 



»*»D2*»**»»»* 

GET RECORD 

LENGTH FROM 

RECORD AND 

LOAD IN 

REGISTER 



»LCAD USER IOREG* 
»WITH ADDRESS CF» 
« CURRENTLY » 
» AVAILABLE * 
* OUTPUT AREA * 



END 

OF 

BLOCK 



»**Et+*»«***« 

SAVE 

SIZE OF 

BLOCK READ 

FOR USER 



»»F2»»**»* 
SET 

NEW END 

OF BLOCK 

POINTER 



RETURN TO 
PROBLEM 
PROGRAM 



GET 

ADDRESS 

OF CURRENT 

RECORD 



STORE 

NEW END 

OF BLOCK 

POINTER 



MTMOD MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 
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Chart HH. 



MTMOD: 



NOTE Macro, Workfile 



****B3********* 

* ENTERED FROM * 

* NOTE MACRO * 

* EXPANSION * 
*************** 



IJFWNOTE 

*****C3********** 

* LOAD REG 1 * 

* WITH BLOCK * 

* COUNT FROM * 

* BYTES 40-43 * 

* OF DTF TABLE * 
***************** 



****03********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart HJ. 



MTMOD : 



POINTR Macro, Workfile 



****A3********* 

* ENTERED FROM * 

* POINTR MACRO * 

* EXPANSION * 
*************** 



IJFWPNTR 

*****B3******* 

* TURN OFF * 

* POINTW IND 

* IN BYTE 22 

* OF THE DTF 

* TABLE * 
************** 



*****C3********** 

* * 

* STORE WORK * 

* REGISTERS * 

* 3 AND 4 * 

* * 
***************** 



.* READ 
. BACKWARDS 
*. SPECIFIED. 



*****C5******* 

* CHANGE * 

* CCW COMND 

* CODE TO 

* BACKSPACE 

* RECORD * 
************** 



* FORWARD *. YES 

SPACE SW ON .*.... 
*. IN DTF .* 



*_*_*_*_ 



_*_*_*_* 



FORWARD 
* SPACE 
FILE 
************* 



******D5*********** 

IJFWEXCP JG 

*_*_*_*_*_*_*_*_* 

BACKSPACE 
* RECORD * 

************* 



*****(= 3** ******** 

* LOAD REG 3 * 

* WITH I/O AREA * 

* ADDR AND * 

* REG WITH * 

* BLOCK COUNT * 
***************** 



*****£ 5********** 

* DECREASE * 

* DTF BLOCK * 

* COUNT BY * 

* ONE * 

* * 
***************** 



UPDATE DTF * 

BLOCK COUNT * 

(BYTES 40-43) * 

* 

**************** 



****F5 ********* 

* RETURN TO 

* PROBLEM 

* PROGRAM 
*************** 



.♦COMPARE*. 
.* USER BLK * 
. NO. TO DTF 
*. BLK CNT .* 



*****H2******* 

* CHANGE * 

* CCW COMND 

* CODE TO 

* BACKSPACE 

* RECORD * 
************** 



****** j2*********** 

IJFWEXCP JG 

*_*_*_*_*_*_*_*_* 

BACKSPACE 
* RECORD * 

************* 



*****K2********** 

* DECREASE * 

* unr Block * 

* COUNT BY * 



***************** 



*****H3******* 

* CHANGE * 

* CCW COMND * 

* CODE TO * 

* FORWARD SPACE* 

* RECORD * 
************** 



****** j 3*********** 

IJFWEXCP JG 
*_*_*_*-*_*-.*_*_* 

FORWARD 

* SPACE * 

RECORD 

************* 



*****K 3** ******** 

* INCREASE * 

* DTF BLOCK * 

* COUNT BY * 

* ONE * 

* * 
***************** 



* RESTORE * 

* WORK REGS * 

* 3 AND 4 * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



**** 

* * 

* 1 * 

* * 
**** 
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Chart HK. 



MTMOD: 



POINTS Macro, Workfile 



****B3*** ****** 

* ENTERED FROM * 

* PCINT MACRO * 

* EXPANSION * 
*************** 



IJFWSPNT X 

*****C3******* 

* SET FORWARD* 

* SPACE BEFORE * 
*NEXT OPERATION 

* IND IN DTF * 

* BYTE 21 * 
************** 



*****03********** 

* INITIALIZE * 

* DTF BYTES * 

* 40-43 WITH * 

* ZEROS FOR * 

* READ FORWARD * 
***************** 



*****E3******* 

* CHANGE * 

* CCW COMND 

* CODE TO 

* REWIND 

* * 
************** 



********* 



SVC 

REWIND 

TAPE 



********** 



*********** 



****H4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart HL. MTMOD: POINTW Macro, Workfile 



****A3********* 

* ENTEREO FROM * 

* POINTW MACRO * 

* EXPANSION * 
*************** 



IJFWPNTW 

*****B3******* 

* TURN ON * 

* POINTW IND 

* IN BYTE 22 

* OF THE DTF 

* TABLE * 
************** 



*****C3********** 

* * 

* STORE WORK * 

* REGISTERS * 

* 3 AND 4 * 

* * 
***************** 



* FORWARD *. YES 

SPACE SW ON .*.... 
*. IN DTF .* 



******Q4*********** 

IJFWFSF JG 
*_*_*_*_*_*_*_*_* 

.X FORWARD 

* SPACE * 

FILE 

************* 



*****E3********** 

* LOAD REG 3 * 

* WITH I/O AREA * 

* ADDR AND * 

* REG WITH * 

* BLOCK COUNT * 
***************** 



IJFWTEST 

*****F3 ********** 

* UPDATE * 

* DTF BLOCK * 

* COUNT * 

* (BYTES 40-43) * 

* * 
***************** 



*****H2******* 

* CHANGE * 

* CCW COMND 

* CODE TO 

* BACKSPACE 

* RECORD * 
************** 



****** j2 *********** 

IJFWEXCP JG 

*-*_*-*_*_*-*-*_* 

BACKSPACE 

* RECORD * 



G3 *. 
DTF .*COMPARE*. 
HIGH .*USER BLOCK * 
*. NO. TO DTF 

*. BLK CNT .* 



*. 



*****H3******* 

* CHANGE CCW * 

* COMND CODE 

* TO FORWARD 

* SPACE 

* RECORD * 
************** 



*****K2 ********** 

* DECREASE * 

* DTF BLOCK * 

* COUNT BY * 

* ONE * 

* * 
***************** 



FORWARD 

SPACE 
RECORD 



*****K3********** 

* INCREASE * 

* DTF BLOCK * 

* COUNT BY * 

* one * 



IJFWTIXT 

*****H4********** 

* RESTORE * 

* WORK * 

* REGISTERS * 

* 3 AND 4 * 

* * 
***************** 



****J4********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*********** 



***** 



**** 

* * 

* 1 * 
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• Chart HM. 



MTMOD : 



PUT Macro (Section 1 of 2) 



ENTRY FROM 
PUT MACRC 
EXPANSION 



MTMOD MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR IN 
AN ASSEMBLY LISTING. 



ENTRY FROM 
PUT MACRO 
EXPANSION 



STORE 

REGISTERS 

10-14 



STORE 

REGISTERS 

6-14 



*»»C1***«»«*«» 

STORE 

REGISTERS 

9-14 AND SAVE 

ADDRESS OF 

SAVE AREA 



»*»*C4»»*»»»»»* 

STORE 

REGISTFRS 

5-14 AND SAVE 

ADDRESS OF 

SAVE AREA 



****D1*»***»* 
TURN ON * 
BIT 34 IN CCW* 

TO SUPPRESS 

INCORRECT LNG* 

INDICATION * 



• 02 
DTFMT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



El *. 


**«»»E2**»»»»»»* 


* WORKA *. 


•IJFFWRK HU 


IN DTF «. YES 




ENTRY EQ .» 


..X* EXECUTE 


YES .* 


* WORK AREA 


*. *D2 .* 


* SUBROUTINF 



«»#«*D4< 
•GET LNG OF I/O * 
•AREA, BLOCKSIZE* 
•AND ADDRESS OF » 

* CURRENT I/O » 

* AREA * 



E4 *. 

. * WORKA » 

IN DTF 

ENTRY EQ 

YES 
•. *D2 .* 



EXECUTE 

WORK AREA 

SUBROUTINE 



• NO 



EXECUTE 
BLOCKING 
SUBROUTINE 



EXECUTE 

BLOCKING 

SUBROUTINE 



EXECUTE 

WRITE 

SUBROUTINE 
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• Chart HN. MTMOD: PUT Macro (Section 2 of 2) 



**»A2*»*«**» 

ENTRY FROM 

PUT MACRO 

EXPANSION 



MTMOD I^ACRO PARAMETER 
OPTION - DECISION DOES 
'MOT APPEAR IN AN 
ASSEMBLY LISTING. 



RDONLY 

OMITTED 

»A3 



»»»C2*«»*»***« 

STORE 

REGISTERS 

7-14 AND SAVE 

ADDRESS OF 

SAVE AREA 



STORE 

REGISTERS 

8-14 



34 



»D2**«**»* 

TURN ON BIT* 

" IN CCW TO * 

SUPPRESS 
INCORR LNG * 
INDICATION » 



»»E2*«»**»* 

SAVE 

SPECIFIED 

LENGTH OF 

RECORD, 

RECSIZE 



««*F2«»***»* 

GET 

ACDRESS 

OF CURRENT 

I/O AREA 



.« WORKA * 
«.IN DTF ENTRY 
». EQ YES .* 



EXECUTE 

WORK AREA 

SUBROUTINE 



EXECUTE 

WRITE 

SUBROUTINE 
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# Chart HP. MTMOD: READ Macro, Workfile 



ENTRY FROM 

READ MACRO 

EXPANSION 



TURN ON * 
READ FORWARD 

INDICATOR 
(0 IN BIT 4) 
IN DTP * 



READ/WRITE 
COMMON 
ROUTINE 



* MOVE READ 
*0P CODE (X'02* 
» INTO CCW 



*G2 
DTFMT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NCT APPEAR 
IN AN ASSEMBLY 
LISTING. 



SVC 

READ 

TAPE 



RESTORE 

USER'S 

REGISTERS 



ERROPT 

=ADDRESS 

*G2 



. * 


ENTRY ». 


FROM CHECK 


RTN 


BECAUSE 


.1)1- 


A READ. 


». 


ERROR.* 



**K3»»**»«* 

RETURN TO 

PROBLEM 

PROGRAM 
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Chart HQ. 



MTMOD : 



RELSE Macro 



****A1********* 

* ENTRY FROM * 

* RELSE MACRO * 

* EXPANSION * 
*************** 



* READ IN * 

DTF EQ BACK 
*. *F1 .* 



*****B3******** 

* SET 

* DEBLOCKER 3, 
.X* END OF BLOCK 

* PTER 

* TO ZERO 
*************** 



IJFFREL 

*****C1 ********** 

* SET * 

* DEBLOCKER 3, * 

* END OF BLOCK * 

* PTR * 

* TO ZERO * 
***************** 



IJFFXBK 

*****C2********** 

* SET * 

* DEBLOCKER 1, * 

* END OF BLOCK * 

* PTER. * 

* TO ZERO * 
***************** 



(VARIABLE) 



****A4********* 

* ENTRY FROM * 

* RELSE MACRO * 

* EXPANSION * 
*************** 



IJFVREL X 

*****B4* ********* 

* SET END * 

* OF BLOCK PTER * 

* DEBLOCKER 6, * 

* TO ZERO * 

* * 
***************** 



****C4* ******** 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



****02********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 



*F1 

DTFMT MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 
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• Chart HR. MTMOD: 



TRUNC Macro 



ENTERED FROM 

TRUNC MACRO 

EXPANSION 



MTMOD MACRO PARAMETFR 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



ENTERED FROM 

TRUNC MACRO 

EXPANSION 



RDONLY 

OMITTED 

*A3 



IJFFTRU 

**«**C1*******»* 
» STORE 
« REGISTERS 
» 9-14 AND SAVE 

* ACDRESS OF 

* SAVE AREA 



STORE 

REGISTERS 

10-14 



IJFVTRU 

*».»»C4**»***»«* 

* STORE 

* REGISTERS 

* 5-14 AND SAVE 
» ADDRESS OF 

» SAVE AREA 



GET CURRENT 
I/O AREA 

ADDRESS AND 
BLCCKSIZE 



STORE NEW 

BLOCKSIZE 

IN CCW 



WAIT FOR 

I/O 
COMPLETE 



EXECUTE 

WRITE 
ROUTINE 



WAIT FOR 

I/O 
COMPLETE 



RESTORE 

BLCCKSIZE 

IN CCW 



» G5» 
I JFVOUB 
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Chart HS. MTMOD: WRITE Macro, Workfile 



****A3********* 

* ENTERED FROM * 

* WRITE MACRO * 

* EXPANSION * 
*************** 



* STORE USER'S * 

* REGISTERS * 

* 2-4 * 

* * 
***************** 



*****C3******* 

* TURN ON * 
♦WRITE INDICATOR 
*(X'08" ) IN THE * 

* DTF * 

* * 
************** 



*****03********** 
*IJFWRW JG* 
*_*_*_*_*_*_*_*_* 

* READ/WRITE * 

* COMMON * 

* ROUTINE * 
***************** 



*****E3********** 

* * 

* MOVE WRITE * 
*OP CODE <X'Ol' )* 

* INTO CCW * 

* * 
***************** 



****** F3*********** 



SVC 
WRITE ON 
* TAPE 

*********** 



**G3********** 

RESTORE * 

USER'S * 

REGISTERS * 

2, 3, AND 4 * 

* 

*********** 



****H3********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart HT. 



MTMOD : 



Blocking/Deblocking Subroutines 



****A1******** 
* IJFFDBL 
************** 



IJFFDBL X 

*****B1 ********** 

* GET * 

* CURRENT * 

* RECSIZE, * 

* NO. OF CHARS * 

* IN EACH RCD * 
***************** 



END *. NO 
OF .*... 
BLOCK .* 



*****01 ********** 
*IJFFEX1 HW* 
*-*—*-*-*- *^*-*-* 

* EXECUTE * 

* READ/WRITE * 

* SUBROUTINE * 
***************** 



*****£!********** 

* * 

* STORE ACDR * 

* OF NEW * 

* RECORD * 

* * 
***************** 



****F1********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



***A2********* 
IJFVDBL * 



* CALCULATE 

* LENGTH OF 

* CURRENT 

* BLOCK 

* *A3 
************** 



*****C 2 ********** 

* SET PNTR * 

* TO START * 

* OF NEW * 

* RECORD * 



**D2********** 
CALCULATE * 
AND STORE * 
LENGTH OF * 
UNUSED * 
I/O AREA * 

************** 



****E2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



*A3 
LENGTH OF CURRENT 
BLOCK = LENGTH OF 
RECORD PLUS CURRENT 
BLOCK LENGTH. 
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Chart HU. MTMOD: Work Area Subroutines, Fixed and Variable Records 



****A1********* 

* * 

* IJFFWRK * 

* * 
*************** 



****A3********* 

* * 

* IJFVWRK * 

* * 
*************** 



WORK 
AREA 
SPEC 



****B2**#****** 

* * 

* RETURN * 

* * 
*************** 



*****Cl********** 



************** 



*****E 1 ********** 

* SET UP TO * 

* MOVE RCD * 

* FROM I/O * 

* AREA TO * 

* WORK AREA * 
***************** 

**** 



* 1 



IJFFOEX 

*****£ 2********** 

* SET UP TO * 

* MOVE RCD * 

* FROM WORK * 

* AREA TO I/O * 

* AREA * 
***************** 



**** 
IJFFWMV X 

*****Fi ********** 

* MOVE RCD * 

* 256 BYTES * 

* AT A TIME TO * 

* CORRECT AREA * 



************ 



**** 



Gl *. 




.* LESS *. 




THAN 256 * 


NO 


BYTES TO BE 


*. . 


. MOVED .* 




*. .* 




*. .* 




*YES 





IJFFRST 

*****H1 ********** 

* MOVE * 

* REMAINING * 

* BYTES TO * 
' * CORRECT * 

* AREA * 
***************** 



****jl********* 

* * 

* RETURN * 

* * 
*************** 



WORK 
AREA 
SPEC 



****B4********* 

* * 

* RETURN * 

* * 
*************** 



*****B 5**** ****** 



***************** 



* 3 *., 



**** 
IJFVMOV X 

*****C5********** 

* MOVE RCD * 

* 256 BYTES * 

* AT A TIME * 

* TO CORRECT * 

* AREA * 
***************** 



.* BLOCKED *. NO 
OUTPUT .*... 
*. FILE .* 



*****£ 3********** 

* * 

* GET ADDR * 

* OF WORK * 

* AREA * 

* * 
***************** 





* DOES * 






♦RECORD FIT 


* 


YES 




IN WORK 




*..X 


* 


. AREA 


.* 





*****G3 ********** 

* * 

* ADD 4 * 

* TO SIZE * 

* OF BLOCK * 

* * 
***************** 



*****H 3 ********** 

*IJFVEX1 HZ* 
*_*_*_*_*_*_*_*_* 

* EXECUTE * 

* WRITE BLOCK * 

* SUBROUTINE * 
***************** 



*****J3********** 

* * 

* ZERO * 

* BLOCK * 

* COUNT * 

* * 
***************** 



X.. 

IJFVUBL 

*****K3******* 

* SET UP TO 

* MOVE RCD 

* FROM WORK 

* AREA TO I/O 

* AREA 
************** 



IJFVOEX 

*****04********** 

* SET UP TO * 

* MOVE RCD * 

* FROM I/O * 

* AREA TO * 

* WORK AREA * 
***************** 



*****E4********** 



***************** 



.* LESS *. 
* THAN 256 *. NO 

BYTES TO BE .*.... 
*. MOVED .* 



IJFVRST 

*****£ 5********** 

* MOVE * 

* REMAINING * 

* BYTES TO * 

* CORRECT * 

* AREA * 
***************** 



****P5********* 

* RETURN * 

* * 
*************** 
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Chart HV. MTMOD: Work Area Subroutine, Undefined Records 



****A3******* 
* 

* IJFUWRK 
* 

************* 



WORK 
AREA 
SPEC 



****B4********* 

* * 

* RETURN * 

* * 
*************** 



INPUT 
FILE 


* 
* 


. YES 


















*. .* 
*. .* 
*N0 












X 
**03****** 

STORE 
BLOCK 
SIZE 

********** 




* 
* 
* 
* 
* 
** 


IJFUWIN X 

*****D4********** 

* SET UP TO * 

* MOVE RCD * 

* FROM I/O * 

* AREA TO * 

* WORK AREA * 
***************** 



*****E3********** 

* SET UP TO * 

* MOVE RCD * 

* FROM WORK * 

* AREA TO * 

* I/O AREA * 
***************** 



IJFUWMV X 

*****p 3 ********** 

* MOVE RCD * 

* 256 BYTES * 

* AT A TIME * 

* TO CORRECT * 

* AREA * 
***************** 



.* LESS *. 
.* THAN 256 *. NO 
. BYTES TO BE .*... 
*. MOVED .* 



IJFURST 

*****H3********** 

* MOVE * 

* REMAINING * 

* BYTES TO * 

* CORRECT AREA * 

* * 
***************** 



****J3********* 

* * 

* RETURN * 

* * 
*************** 
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• Chart HW. MTMOD: Read/Write Subroutine, Fixed Records (Section 1 of 3) 



MTMOD MACRO PARAMETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



EOF 
"*NC 



.* DOES *. 
.* FILE *. YES 

•.CONTAIN CHKPT.* 

*. RECORDS .» 



TURN OFF 
WLR BIT 
IN DTF 



INTERCHANGE 
2 I/O 
AREAS 



.* INPUT * 


YES 


* SVC * 
X READ 


*. AREAS .» 
**N0 

'.X 




* TAPE * 


X 
«»*»*F1******* 

* TURN ON * 

* FIRST TIME * 

* SWITCH * 

xl * 

X » 
IJFFHRU .*. « 
Gl *. 

.** 2 **. NO 


*F2 
FOR READ FORWARD, ADD 
ONE TO BLOCK COUNT. 
FOR READ BACKWARD, 
SUBTRACT 1 FROM BLOCK 
COUNT. 

»*» *»*JF-E5,F4 

* IJFFHU2 
» »*.»«*G2********** 

X * SVC * 


*. SPECIFIED.* 




* TAPE * 



GET BLOCK 

COUNT FROM 

DTF ENTRY 



*ADD OR SUBTRACT* 

* ONE FROM * 

* BLOCK COUNT * 



»»*E3* 

RESTORE 

BLOCK COUNT 

IN DTF 

ENTRY 



»*»»F3******** 

GET RESIDUAL 

COUNT AND 

ADDRESS OF 

USER WLR 

ROUTINE 



POINTER TO END OF 
BLOCK EQUALS POINTER 
TO NEXT AVAILABLE 
RECORD IN I/O AREA 
PLUS BLOCKSIZE MINUS 
RESIDUAL COUNT IN CCB. 



***»*Ei+********* 
» SET RECSIZE, 
*NO OF BYTES IN 
*LOG RECORD, TO 
* POSITIVE 



«**»F4********* 
SUBTRACT SIZE 
OF LOGICAL 
RECORD FROM 
SIZE OF BLOCK 



IJFFMAI 

««*##Hl»* 
MJFFWAI 



WAIT FOR 

I/O 
COMPLETE 



IN THIS CASE, THE 
RESIDUAL COUNT IN 
THE CCB IS NEGATIVE. 



YES YES .* WLR 
*....X *. BIT ON IN 

*. DTF CCW . 



»*»*J3******* 
TURN OFF * 
INCORRECT LNG* 
PROG CHK AND 
PROT CHK BITS* 
IN CCB * 



* B4* 
IJFFER2 



LOAD REG 14 

WITH ERROR 

EXIT ADDRESS 

FROM DTF 



****E5********* 

STORE POINTER 

TO NEXT 

AVAILABLE 

RECORD IN I/O 

AREA 



CALCULATE 

POINTER TO 

END OF BLOCK 



STORE 

POINTER TO 

END OF BLOCK 



*J5****** 

SVC 

READ OR 

WRITE 

TAPE 



*K5****» 
RETURN 



IJFFER1 * Bl* 
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• Chart HX. 



MTMOD : 



Read/Write Subroutine, Fixed Records (Section 2 of 3) 



*HW-H3,H4,K4 



RESET 

FIRST TIME 

SWITCH IN 

DTF ENTRY 



*. ADDRESS 



GET 

ADDRESS 

OF USER ERROR 

EXIT OR WLR 

ROUTINE 



* LOAD CONTENTS * 
» OF BYTE 36 » 
*AND EOF ADDRESS" 

* FROM OTF INTO * 

* REGISTER 14 • 



*. SKIP 

ERROPT = .» 

• El .» 

**. .*" X 

"ADDRESS *»»*• 
*HW » 
» B 1* 



RESTORE 

REGISTERS 

10-13 



**D3*****»*»* 

RESTORE 

REGISTERS 

9-13 



« EOF 
( /» OR /+) 

♦.INDICATED. 



***D4»»«»»*» 

TURN ON 

EOF SWITCH 

IN DTF 

ENTRY 



• El 

DTFMT MACRO 

PARAMETER 

OPTION - DECISION 

DOES NOT APPEAR 

IN AN ASSEMBLY 

LISTING. 



»F1 

MTMOD MACRO 

PARAMETER 

OPTION - DECISION 

DOES NOT APPEAR 

IN AN ASSEMBLY 

LISTING. 



*G2 
FOR READ FORWARD, ADD 
ONE TO BLOCK COUNT 
FOR READ BACKWARD, 
SUBTRACT ONE FROM 
BLOCK COUNT. 



THE USER ROUTINE TO 
BE EXECUTED IS EITHER 

1. WLR, OR 

2. ERROR EXIT. 



STORE USER 
REGISTERS 
0, 1, 15 



LOAD OP CODE 

AND DATA 

ADDRESS OF 

DTF CCW 



SAVE THE 
ADDR OF USER 
WLR OR ERROR 
EXIT ROUTINE 



* EXECUTE • 
♦USER ROUTINE 

SPECIFIED BY 
* REGISTER 14 



*»*F4***»*»»« 

LOAD THE 

BLOCK COUNT 

INTO 
REGISTER 14 



ADD OR 

SUBTRACT ONE 

FROM BLOCK 

COUNT 



STORE BLOCK 
COUNT IN 
DTF ENTRY 



*««»*K3****«****» 

* RESTORE * 

* REGISTERS * 

• 15, 0, 1 AND • 
•STORE REGISTERS* 

• 9-13 • 



.IJFFGET+4 



Charts 177 



Chart HY. MTMOD: Read/Write Subroutine, Fixed Records (Section 3 of 3) 



. »HD- 
HX- 


-E1,F1 
-JU 


E X 
»*A1**»**«* 

TURN ON 

EOV SWITCH 

IN DTF 




Ix.... 





SAVE 
CONTENTS OF 
REGISTER 10 



MTMOD MACRO PARAMETER 
OPTION-DECISION DOES 
NOT APPEAR IN AN 
ASSEMBLY LISTING. 



«»»»A3**»»»* 
» IJFFWAI 



IJFFWAIT .*. 



SVC 7 

WAIT FOR 

I/O COMPLETE 



GET ADDRESS 

OF I/O 

AREA 



RCONLY 

OMITTED 

*B2 



»*.»C3***»* 

* RETURN 



SUBTRACT 

SIZE OF 

RECORD FROM 

ADDRESS OF 

I/O AREA 



RESTORE 

REGISTERS 

10-13 



STORE 

CURRENT 

RECORD IN 

DEBLOCKER 1 



.**#E1»»**»*«» 

SAVE THE 

CONTENTS 

OF REGISTERS 



****E5***»*»»* 

ADD RESIDUAL 

COUNT TO 

ADDRESS OF 

I/O AREA 



»»F1»««»*« 

SET UP 

TO FETCH 

$$BCE0V1 , 

EOF/EOV 

MONITOR 



FROM 
FEOV 
MACRO 



TURN OFF 
FEOV 
MACRO 

SW IN DTF 



SUBTRACT 
BLOCK SIZE 
FROM RESULT 



*»G1****»« 

SVC 2 

FETCH 

$$BCE0V1 



CLEAR 

DEBLOCKERS 

1 AND 6 



ADJUST 
RESULT 
BY ONE 



*#»*H1***»*»*» 

RESTORE 

CONTENTS 

OF REGISTERS 

0, 1 



GET 
CONTENTS OF 
REGISTER 10 



X 


IJFFEX1 




X 










H2 «. 






H3 ». 










2 * 


YES 




» RDONLY 


I/O AREAS 






OMITTED 


SPECIFIED.* 


. 




*. *B2 












X 






*NO 


*HW « 




*NO 




* C3« 








X 




















*HW • 


IJFFGBC 








» F3» 




JFFNOIF X 






#»»*»J3»»***« 










IJFFRCT 






RESTORE 








REGISTERS 






* 


9- 


4 



LOAD USER'S 

RETURN 
ADDRESS IN 
REGISTER ]k 



» G5* 
IJFFSTD 



¥«««K3**«**«» 
* RETURN TO 
» PROBLEM 
» PROGRAM 
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Chart HZ. MTMOD: Read/Write Subroutine, Variable Records (Section 1 of 3) 





»«* 


*A1***** 










* 


IJFVEX1 










«*» 


******** 




*«** 














HF 


-B3* 


*.X 




J A 


-J3* * 


» 








< 




IJFVEX1 


B1****. 






FIRST 




*. 


TI 


lb 



SVC 7 
WAIT FOR 

I/O 
COMPLETE 



**»»B5»***»»»» 

MOVE ADDRESS 

OF NEW I/O 

AREA TO 

CCW IN DTF 

ENTRY 



* C3* 
IJFVHRU 



SVC 7 
WAIT FOR 

I/O 
COMPLETE 



NO .« CKPTREC *. 
X..*. ( IN DTF) EQ .* 
*. YES .* 



D3 *. 
.» DOES «. 
.* THIS ». YES 
.FILE CONTAIN ...... 

*. CHKPT .* 
*.RCCS .* 



*NO 



•Dk 
DTFMT MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



STORE 

BLOCKSIZE 

IN CCW 



SVC 

READ OR 

WRITE 

TAPE 



DEBLOCKER1 



****H1********* 

POINT TO 

CURRENT BLOCK 

AND MOVE 

BLOCKSIZE 

TO I/O AREA 



IJFVGBC 

»****F3» 

* ADD OR 

* SUBTRACT 

* ONE FROM 

* BLOCK COUNT 
» *F2 



»»*G3**»***»* 

RESTORE 

BLOCK COUNT 

IN DTF 

ENTRY 



FOR READ FORWARD, 

ADD ONE TO BLOCK 

COUNT. 

FOR READ BACKWARD, 

SUBTRACT ONE FROM 

BLOCK COUNT. 



GET RESIDUAL 

COUNT AND 
ADDR OF ERROR 
EXIT ROUTINE 



IJFVTOV .*. 






Jl *. 












.* 2 




YES 


*. I/O AREAS 






•.SPECIFIED. 




















»NO 






















F-E5* *.. 








F-F4* *** 
















IJFVHU2 X 






»#*«*»K1**»»»»< 




SVC 






* READ OR 






WRITE 






* TAPE 


* 


************ 


* 






X.... 







« A3* 
IJFVER1 



NO .* READ IN * 
...». DTF EG BACK 
«. »D4 .» 



«»»#*G5»****»»*«* 
•SUBT FOUR FROM * 
» ADDR OF CURR * 
•BLOCK AND STORE* 
* AS NEW END OF * 
» BLOCK POINTER * 



»«»#»H5**»»*»*«»* 
•SUBT BLOCKSIZE * 

• FROM I/O AREA • 
•ADDRESS AND ADD* 

• RESIDUAL * 
•COUNT TO RESULT* 



STORE AS 

POINTER TO 

BEGINNING 

OF BLOCK 



SAVE OLD 
I/O AREA 
ADDRESS 



»K5»«**» 
RETURN 
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Chart JA. MTMOD: Read/Write Subroutine, Variable Records (Section 2 of 3) 



TURN ON 

EOV SWITCH 

IN DTF 



*A4 
MTMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING 



»»**»B1********** 

* LOAD CONTENTS * 
« OF BYTE 36 * 
*AND EOF ADDRESS* 
» FROM DTF * 

* INTO REG 14 » 



EOF 

OR /+) 
DICATED. 



TURN ON 

EOF SWITCH 

IN DTF 



EXIT TO 

USER EOF 
ROUTINE 



*».«»C3********** 

* SAVE * 

* REGISTERS » 

* 6,7, AND * 

* BLOCKSIZE * 
*(REGS 9 AND 10)* 



*»D3*«******* 

RESTORE 

REGISTERS 

-1U AND SAVE 

REGISTERS 

AND 1 



**C4******* 

SAVE 

REGISTERS 

6, 7 AND 

RESTORE 

REGS 6-14 



***»*D4********** 

* STORE * 

* IJFVRCTRS * 

* 0,1, AND * 

* BLOCKSIZE * 
•(REGS 9 AND 10)* 



*»**»E3»*»**«*«* 

* SET UP TO 
•FETCH $$BCEOV1, 

* EOF/EOV 

* MONITOR 



LOAD THE 
BLOCK COUNT 
INTO REG 14 



»*«»#H1********* 

* ADD OR 

* SUBTRACT 
*ONE FROM BLOCK 

* COUNT 

* *G2 



*G2 
FOR READ FORWARD, 
ADD ONE TO BLOCK 
COUNT. 

FOR READ BACKWARD, 
SUBTRACT ONE FROM 
BLOCK COUNT. 



.*»*F3********» 
* SVC 2 
*FETCH $$BCE0V1 



***»*G3********** 

* RESTORE * 
» REGISTERS * 

* AND 1 AND » 

* BLOCKSIZE * 
MREGS 9 AND 10)* 



TURN OFF 

FEOV MACRO 

SWITCH IN 

DTF 



FROM *. YES 
FEOV .*.... 
MACRO .* 



INPUT 


« 


. NO 


FORWARD 


n 


.*.... 
















YES 






) 


< 






»»H5* >»»»*•* 










CLEAR 




* 


DEBLOCKERS 






1 AND 3 




* 




.X. . . 







STORE 
BLOCK COUNT 
IN DTF ENTRY 



* LOAD USER'S 
•RETURN ADDRESS 
•IN REGISTER 14 



2 *. YES 

I/O AREAS .* 

.SPECIFIED.* 



»*K5******* 

RETURN TO 

PROBLEM 

PROGRAM 



*N0 

ijfvrctI 

X 

*HZ * 
• H3* 
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•Chart JB. MTMOD: Read/Write Subroutine, Variable Records (Section 3 of 3) 



» BOTH *. NO 
2 I/O AREAS .*... 
».AND INPUT. » 



SVC 

READ 

OR WRITE 

TAPE 



»D3»***»* 
TURN ON 

FIRST 

TIME 
SWITCH 
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• Chart JC. 



MTMOD : 



Read/Write subroutine. Undefined Records (Section 1 of 3) 



..*A1»*«**« 
IJFUEX1 



* B2* 
IJFUFT1 



.» 2 *. NO 

*. INPUT I/O .»..X 
*. AREAS .* 



SVC 

READ 

OR WRITE 

TAPE 



TURN ON 

FIRST TIME 

SWITCH 



CKPTREC 

SPECIFIED 

. IN DTF . 

*. *E4 .* 



C3 *. 

.♦CHECK- ». 
« POINT 

RECORDS IN 
*. THIS 
••FILE .» 



INTERCHANGE 
THE TWO 
I/O AREAS 



»NO 



YES .» 


2 


*. 




I/O 






AREAS 

**NO 




Il JFUHU2 


/ 


X.. . 




< 




. .»#*». Gl****». 






SVC 




* 


READ OR 
WRITE 


* 


* 


TAPE 


* 


• •••••• 


».... 


»« 




...X 


!x... 






X 












HI «. 










YES .* 


I/O 


.. 




COMPLETE 




* 


* .* 


.» 


X 






**♦» 


*NO 










1 * 












.... 


X 






*.J1*».».* 












SVC 7 






WAIT 

























SAVE BLOCK 

COUNT IN DTF 

»J2 



D4* 



IJFURCT X 

**.»»E3*«»***»»» 

* SAVE 

* RESIDUAL 
•COUNT AND EXIT 
» ADDRESS 



WRONG 
LENGTH 
RECORD 



RESIDUAL *. YES 
COUNT EQ .*... 
. ZERO .* 



»E4 
DTFMT 

MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



»».».D5****» 
SVC 

* READ 
TAPE 



»J2 
BEFORE PERFORMING THIS 
OPERATION, 1 IS ADDED TO 
THE BLOCK COUNT FOR A 
READ FORWARD OR A WRITE. 
FOR A READ BACKWARD, 1 
IS SUBTRACTED FROM THE 
BLOCK COUNT. 



» Al* 
IJFUER1 



GET BLOCKSIZE 

AND RECORD 

LENGTH 



.* READ *. 
NO .» BACKWARD 
,..*. SPECIFIED 
*. IN DTF . 



G5 *. 

.« READ * 

BACKWARD 

SWITCH 

ON 



*»»»»H5»*****»»* 
♦SUBTRACT BLOCK 

* COUNT AND ADD 
♦RESIDUAL COUNT 

* TO I/O AREA 

* ADDRESS 



SAVE 
NEW ADDRESS 
OF I/O AREA 



RETURN 
VIA 
REGISTER 
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Chart JD, MTMOD: Read/Write Subroutine, Undefined Records (Section 2 of 3) 



*A4 
DTFMT 

MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



RESET 
FIRST Til 
SWITCH IN 
DTF 









« 


*. 




IGNORE/ 




ADDRESS 










OMITTED 






"« 


ERROPT = 
«A4 


*" 


















'•SKIP 

X 

«JC « 
« CI* 




X 
» B5* 
IJFUIGN 
















T » 














IME * 








IJFUFTI 







OR 



**D1»****««»* 

GET ADDRESS 

OF USER WLR 

~ ERROR EXIT 

ROUTINE 



»C3 
MTMOD MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



LOAD REG 14 

WITH EOF 

ADDRESS 

FROM DTF 



YES .« EOF 
....*. (/* OR /+) 

•.INDICATOR. 



»»D4«»*«»* 

EXIT TO 

USER EOF 

ROUTINE 



TURN ON 

EOF SWITCH 

IN DTF 



RESTORE 

REGISTERS 

8-13 



LOAD BLOCK 
COUNT INTO 
REGISTER 14 



STORE 

REGISTERS 

15,0,1 



»«»«H1»»»*»»*« 

LOAD 

REGISTER 1 

WITH DATA 

ADDRESS FROM 

DTF CCW 



SAVE 

ADDRESS OF 

USER WLR OR 

ERROR EXIT 

ROUTINE 



STORE 

REGISTERS 

8-13 



RESTORE 

REGISTERS 

15,0, 1 



YES .* RDONLY 

«. OMITTED 

». *D3 



STORE 

REGISTERS 

7-14 



*H4 
FOR READ FORWARD, ADD ONE 
TO THE BLOCK COUNT. FOR 
READ BACKWARD SUBTRACT 
ONE FROM THE BLOCK 
COUNT. 



»» J5*#»*#»*# 

STORE 
BLOCK COUNT 

BACK IN 

THE DTF 



* EXECUTE • 

USER WLR OR 

ERROR EXIT 

ROUTINE 
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4 Chart JE. MTMOD: Read/Write Subroutine, Undefined Records (Section 3 of 3) 



TURN OFF 

EOV SWITCH 

IN DTF 



MTMOD MACRO PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR IN 
AN ASSEMBLY LISTING. 



RDONLY » 
OMITTED 
»AU .» 


* 


.* FEOV 

». SWITCH ON 
*. IN DTF . 


**N0 




**YES 


X 
#»C2**»»»*** 




IJFUEFE X 

***»«C3»**«*»* 


SAVE 
REGISTER 8 


I 


* TURN OFF 

* FEOV SWITCH 

* IN DTF 



RESTORE 

REGISTERS 

8-14 



RESTORE 

REGISTERS 

7-14 



STORE 

REGISTERS 

AND 1 



«*#»F2»«»**»«* 

INITIALIZE 

TO FETCH THE 

EOF/EOV 

MONITOR, 

$$BCE0V1 



LOAD 

REGISTER 1H 

WITH RETURN 

ADDRESS 



«#E3*»*»**» 

RETURN TO 

PROBLEM 

PROGRAM 



* D3* 
X * * 

»JC * IJFUGBC 



»*G2*»***« 

SVC 2 

FETCH 

$$BCEOVl 



RESTORE 

REGISTERS 

0, 1, AND 8 
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• Chart JF. MTMOD: Bypass Checkpoint Records Routine 



XXXXRCK X 

* LOAD REG 11 

* WITH DATA 

* ADDRESS FROM 
» DTF CCW 



ENTERED FROM- 
FIXED, HW-B3 
VAR, HZ-D3 
UNDEF, JC-C3 



NOTE — 
THIS ROUTINE IS USED 
FOR FIXED, VARIABLE, AND 
UNDEFINED RECORDS. THE 
ONLY DIFFERENCE IN THE 
ROUTINE IS THE LABEL 
PREFIX USED (XXXX) — 

IJFF, FOR FIXED RECORDS 
IJFV, FOR VARIABLE RECORDS 
IJFU, FOR UNDEFINED RECORDS 



* SUBT 19 FROM 
« DATA ADDRESS 

* (POINT TO 
•START OF CHKPT 
•HEADER RECORD) 



SVC 
BYPASS 

ONE 
RECORD 



•CHECKPOINT 

RECORD 
». READ 



* VERSION 1 

CHECKPOINT 

». RECORD . 



FIXED, HW-C3 
VAR, HZ-F3 
UNDEF, JC-D3 



»»»F1**«»««« 

CALCULATE 

NUMBER OF 

CHECKPOINT 

RECORDS TO 

SKIP 



•»»G1«»»»**» 

INIT FOR » 

CCW COMMAND 

CODE SPACE 

FORWARD 



VERSION 1 
CHECKPOINT 
. RECORD . 



.» ALL *. 

•CHECKPOINT 

RECORDS 
♦.BYPASSED . 



RESTORE 
ORIGINAL CCW 
COMMAND CODE 



READ ». YES 
BACKWARD ...... 

.SPECIFIED.* 



CHANGE • 
CCW COMMAND » 
CODE TO SPACE 
BACKWARD * 



FIXED, HW-G2 
VAR, HZ-K1 
UNDEF, JC-G1 
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• Chart JG. MTMOD: Workfile Subroutines 



»«A2***»* 
IJFWRW 



AN 'S' IN THE READ 
MACRO INDICATES THAT 
THE ENTIRE PHYSICAL 
RECORD SHOULD BE READ. 



IJFWRW .*. 

B2 *. 
.« READ ». 

.•ISSUED AND *. YES 
"FIXED UNBLOCKED*... 
». RECORDS .* 



* GET POINTER TO 
•PARAMETER LIST 

* IN MACRO 

* EXPANSION 



.»***D2«»»**»»*« 
» STORE MAX RCD 
» LNG (BYTE 26 

* OF DTF) INTO 

* RECORD LENGTH 

* AREA (BYTE 24) 



.» SPECIFIED * 
».IN PARAMETER 
*. LIST .* 



STORE LENGTH 

IN DTF (BYTE 

24) 



B4 *. 
.* MAX ». 

.» RCD LNG *. YES 

•GREATER THAN .* 

*. RECORD .* 
"LENGTH.* 

*»NC 



MOVE RECORD 

LENGTH INTO 

CCW 



•STORE I/O AREA 
« ADDRESS IN 
* THE CCW 



MOVE MAXIMUM 

RECORD LENGTH 

INTO CCW 



*E3 
DTFMT MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



GET THE 
I/O AREA 
ADDRESS 



»*G3****** 
IJFWEXCP 



•*NOTEPNT». 
OPTION * 
(IN DTF) 
.SPECIFIED.* 



POINTS 
MACRO 
ISSUED 



«G4**»*« 
RETURN 



»**E5**»**» 
IJFWFSF 



IJFWSF X 

»»»**F5»**»»»» 

* TURN OFF * 

* FORWARD SPACE 

* BEFORE NEXT 
•OPERATION SW . 

* DTF (BYTE 21 ) 



***G5**»»*»* 

MODIFY CCW 

OP CODE TO 

FORWARD 

SPACE 
(X'3F' ) 



IN 



TURN OFF 

•READ NEXT 

RECORD' 

INDICATOR 



•K5***»* 
RETURN 
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Chart KA. $$BOMT01: Open Input standard Labels, Forward (Section 1 of 3) 



RELOCATE 

«****B1********* 

* RELOCATE 

* CCWS AND CCBS 

* TO TRANSIENT 

* SAVE AREA 



*«***C1********* 

* SET MODE IN 

* TAPECCW1 AND 
*MOVE UNIT TYPE 

* FROM CTF TO 

* TAPECCB 



.* VOL 1 *. YES 


.* FILE *. NO 






*. READ .* 


*. IN DTF .* 










*NC 


*YES 




X * 


1A X 


DTFDHFLE .*. * 


****B2*********** 


B3 *. 


MSGkRITE LD 






.* CTFPH «. NO 


WRITE 


*. FILE .*..> 


* MESSAGE * 




4111A 




*«*»**»»■»#»»* 


*. . * 



ETURN *. YES 

MESSAGE -*.... 
RITER .* 



C2 *. 

RESPONSE 



«**D2******* 

RETURN TO 

ADDRESS IN 



C3 *. 






♦VCLUNE * 






SEQUENCE 




YES 


NUMBER 




*..X 


BLANK 


« 





.* FILE * 

*. POSTEC OPEN 
*. IN CTF .» 



NC .* TLBL 
X..*. INFO. 
*. IN CTF 



-» MOCIFY TLBL * 

* IMAGE IN MAIN * 

* STORAGE FROM * 
*DTF INFORMATION* 



*E2 
RETURN ADDRESS 
DETERMINED BY 
MESSAGE RESPONSE- 
SEE DECISION BLOCK 
FOLLOWING A 
MESSAGE BLOCK. 



FILE SERIAL, 

VOLIME SECLENCE, AND 

FILE SEQUENCE NUMBERS. 



* NORWD 

SPECIFIED 
*. IN DTF . 



ISLOACPT X 
*«****J1*** 
SVCOWAIT 



***«D2 

INCREMENT 
VOL. SEQUENCE 
NUMBER BY 1. 
(NOT CCNE AT 

END OF VOLUME) 



REACTAPE 

**TAPEREAC LD 



VOL 
LAEEL 
REAC 



.* TLBL *. 

.•FILE SERIAL* 

NUMBER 

*. BLANK .* 



C4 *. 
.* VOL *. 

*SER IAL NO. * 

EQUALS FILE 

*. SERIAL .* 

*. NO. .* 



♦ NO 



MSG12A 

*«*»»*D4 
MSGWRITE 



WR ITE 

MESSAGE 

4112A 



* * 


• 


SET TLBL FILE 


EYPASS.* *. IGNORE 




SERIAL NUMBER 


X....*. RESPONSE .* 


.X* 


EQUAL TO 






VOLUME SERIAL 


*. .* 


* 


NIMBER 



REWIND 

*«****H2- 
SVCOWAIT 



*KB-A4,D5,G3, J4 



.*. 


MSG12C .*. 


3 *. 


G4 *. 






HCR1 *. NC 








REAC .* 


*. READ 



«**G5******** 

MOVE HEX 27 

TO TAPECCW2 

COMMAND 

CODE 



REWIND TC 
LOAD- 
POINT 



.* DOES * 

USER 

WANT HDR 

INFO. 



BACKSPACE 
TAPE ONE 
RECCRD 



WRITE 

MESSAGE 

41511 



ATLOADPT 

»»****K2*»* 
TAPEREAD 



««K4***^****« 
CANCEL * CANCEL^ 
(SVC 6) * 



WRITE 

MESSAGE 

4113D 



K5 *. 

RESPONSE 
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Chart KB. $$BOMT01: Open Input Standard Labels, Forward (Section 2 of 3) 



.*. 


CHECKID .*. 




MSG32D .*. 






Al *. 


A2 *. 




A3 *. 






* TLBL *. 


.* TLBL *. 




.* LABEL *. 




MSGWRITE LD 


FILEID *. NO 


.* AND LABEL *. 


NO 


.* FILE SEC. *. 


NO 




OR ZEROS .* 


*. EQUAL .* 




*.TLEL FILE.« 




« MESSAGE * 


*. .* 


♦ . . * 




*. SEG .* 




41320 



CCNTINUO .*. 

CI *. 
.* TLBL *. 
.•FILE SERIAL*. NO 
*. NUMBER .*... 
*. BLANK .* 



C2 *. 
.* TLBL *. 

.* AND LABEL *. NO 
. FILE SERIAL .*... 
*. NUMBERS .* 

*. EQUAL. ♦ 

"♦YES 



G15A 
**MSG 



WRITE 

ESSAGE 

4115A 



CI *. 
.♦ TLBL * 

.♦ VOLUME 
. SEQUENCE 
*. NUMBER 
♦.BLANK.* 

YES 



D2 *. 

.* TLBL *. 

.* AND LABEL *. 
.X*VOLUME SEQUENCE* 
*. NUMBERS .* 
*. EQUAL. * 

"♦YES 



MSG16A 

**»***C3*»* 
MSGWRITE 



WRITE 
MESSAGE 
4H6A 



El *. 

.* TLBL * 
.* FILE 

. SEQUENCE 
*. NUMBER 
*. BLANK.* 

"*YES 



.* TLBL *. 
♦ GENERATION 

NUMBER 
*. BLANK . 



Gl *. 

.* TLAB *. 

* ANC LABEL 

GENERATION 

*. NUMBERS . 

♦.EQUAL.* 



*E3 
THE SVCOWAIT SUB- 
ROUTINE IS ENTERED 
THREE TINES TC READ 
PAST 3 TAPEMARKS 
TC FORWARD 
SPACE ONE FILE. 



♦YES 



CONTINUE .♦. 






HI ♦. 






♦ TLBL 


YES 




VERSION 






NUMBER 




* 


BLANK 



Jl ♦. 

.♦ TLBL *. 

ANC LABEL *. NO 
VERSION .*... 
. NUMBERS .* 
♦.EQUAL.* 



F2 *. 

EQUAL ."COMPARE*. 
.* TLBL AND 


*• 


TLBL 
LOW 


MSG14A 

♦♦♦♦**F3***** 
MSGWRITE 

. . .X WRITE 


♦.SEQUENCE 
*.NOS. .* 

*"*TLBL 
♦*** .HIGH 




♦ MESSAGE 
A 114 A 


* 2 *.. . 






* 


READ3TM X 

SVCOWAIT LD 

SPACE FORWARD 
* CNE FILE * 




X 
G3* **. 

.•'response 

*. *H4 



C4 *. 

• X*I response '. 

*"*IGNORE 



.X*. RESPONSE 



* KA . * ISREWIND 



*F3****** 

CANCEL 
(SVC 6) 



*F4 

A RESPONSE OF 
RETRY IMPLIES 
THAT THE TAPE 
HAS BEEN 
REMOUNTEC OR 
REPOSITIONED BY 
THE OPERATOR. 



MSG33C 

MSGWRITE 



0NTINU5 .*. 


. *. 


Kl *. 


K2 *. 


.* TLBL *. 


.* TLBL * 


.* CREATION *. NO 


.* AND LABEL 


*. GATE .* 


...X*. CREATION 


*. BLANK .* 


♦ . DATES 


*. .* 


♦ .EQLAL. ♦ 



WRITE 
MESSAGE 
4L33C 



* KC , 2 *LABELCHK 
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Chart KC. $$BOMT01: Open Input Standard Labels, Forward (Section 3 of 3) 



READLABL 

TAPEREAD 



SPACEFWD 

* COVE HEX 3F 

* TO TAPECCW2 

* COMMAND 

* CODE 



SPACE TAPE 

FCRWARC TC 

TAPENARK 



* STD 
HEADER 
LABEL 

READ 



* INITIALIZE 
*FOR USER LABEL 

* ROUTINE 



«*G2***«*** 

* EXIT TO * 
* USER LABEL * 

RTN. (LABADDR) 
♦VIA SVC 8. RET* 

* VIA SVC 9 * 



*E5 
FILE SERIAL, 
VOLUME SEQUENCE, AND 
FILE SEQUENCE NUMBERS. 



» TLBL *. YES 

INFORMATION ...... 

«. IN CTF .* 



♦«**F4»****»»« 

MOVE 

UPDATED TLBL 

INFORMATION 

INTO DTF 

*E5 



WRITE UPDATED 

* TLBL BACK * 

ON SYSRES 



. *. 


ISCPEN .*. 


ISDTFPH .«. 


SETONEOF 


H2 ». 


H3 *. 


H4 «. 


«#**»H5«****** 








» TURN ON 


USER ». 


.* FILE «. YES 


.* DTFPH *. NO 


* END-OF-FILE 






. . .X«. FILE .*... . 


....X* INDICATOR 


COMPLETE .* 


*. IN DTF .« 




* IN DTF 



*J1 

USER ISSUES A LBRET1 
MACRO INSTEAD OF A 
LBRET2 MACRO WHEN 
FINISHED PROCESSING 
USER LABELS. 



TURN CN 
FILE OPEN 
INDICATOR 

IN CTF 



RETURN TO 

LIOCS VIA 

SVC 11 
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Chart KD. $$BOMT02: Open Input Standard Labels, Backward 



**** 
* * 

* 2 * 



****A1********* 

* * 

* $$B0MT02 * 

* * 
*************** 



*****B1********** 

* RELOCATE * 

* CCBS AND * 

* CCWS IN * 

* TRANSIENT * 

* * 
***************** 



*****d********** 

* SET MODE * 

* AND MOVE * 

* UNIT TYPE * 

* INTO CCB * 

* * 
***************** 



.* RETURN * 
*.FROM MESSAGE 
*. WRITER .* 



* USER *. 
TRAILER *. NO 
LABEL .*... 
READ .* 



ISDCNE .*. 

B3 «. 

.* USER •». 

YES .* TRAILER *. 

.». LABEL ROUTINE. 

*. COMPLETE .* 

*. *G4 .* 



NORET X 

****** El *********** 

TAPEREAD LD 



************* 



****02* 

* RETURN TO * 

* ADDRESS IN * 

* REG 14 *E2 * 
*************** 



RETURN ADDRESS 
DETERMINED BY 
MESSAGE RESPONSE. 
SEE DECISION BLOCK 
FOLLOWING A 
MESSAGE BLOCK. 



MSG17D 

*****Gi********** 

* WOVE HEX 02 * 

* INTO TAPECCW2 * 

* COMMAND * 

* CODE * 

* * 
***************** 



****** Hi *********** 

SVCOWAIT LD 

*_*-**_*_*_*_*_*_* 

READ TAPE 

* FORWARD * 

************* 



******jl*********** 

MSGWRITE LD 
*_*_*_*_*_*_*_*_* 

WRITE 

* MESSAGE * 

4117D 

************* 



*. RESPONSE 



****«2********* 

* CANCEL * 

* (SVC 6) * 
*************** 



«NC 



LABELCHK .*. 

C2 *. 
.* USER *. 
NC .* LABEL RTN *. 
X..*ACDR (LAeADOR). 
*. SPEC. .* 



*****Q3********** 

* * 
♦INITIALIZE FOR * 

* USER LABEL * 

* ROUTINE * 

* * 
***************** 



**E3******* 

* EXIT TO * 
*USER LBL RTN * 

(LABADDR) VIA 
* SVC 8. RET * 

* VIA SVC 9 * 
*********** 



.*. 

F3 *. 

.* DID *. 

.*USER ISSUE 

*. A LBRET1 

*. MACRO . 



*G4 
*. .* 



READBK 

******Q3*** ******** 
TAPEREAD LD 



YES .* 

X..*. TAPEMARK 
*. READ 



.* STD *. 
.* EO TYPE *. NO 
♦.TRAILER LABEL.*... 
*. READ .* 



MSG23D 

*****A4* ********* 

* MOVE HEX 02 * 

* INTO TAPECCW2 * 
...X* COMMAND * 

* CODE * 



***************** 



*****B4*********** 

SVCOWAIT LD 
*_*_*_*_*_*_*_*_* 

READ TAPE 
* FORWARD * 

************* 



WRITE 
* MESSAGE 
4123D 
*********** 



*. CANCEL 



*****A5 ********** 

* * 

* STORE * 

* BLOCK COUNT * 

* IN DTF * 

* * 
***************** 



TLAB 

FILE ID 

BLANK 



.* TLBL *. 

.* AND LABEL 

*.FILE ID NOS. 

*. EQUAL . 



MSG18D X 

******D5*********** 

MSGWRITE LD 

*_*_*_*_*_*_*_*_* 

WRITE 

* MESSAGE * 

4118D 

************* 



**** 

* * 

* 1 * 



*****p 4* ****** 

* MODIFY INST* 

* AT LOCATION * 
.X*ISDONE FOR USER* 

* LABEL RTN * 

* COMPLETE * 
************** 



*G4 
LBRET1 MACRO SIGNALS 
THAT THE USER IS 
FINISHED PROCESSING 
LABELS - LBRET2 MACRO 
INDICATES THAT THE 
USER INTENDS TO 
PROCESS MORE LABELS. 



READAGAN X 

******P5******* 

TAPEREAD 



SETOPEN X 
*****G5*** 

* TURN 

* FILE 

* INDICA 



****H5********* 

* FETCH * 

* $$BOPEN * 

* * 
*************** 



.* IS *. 
* TRAILER 

LABEL E0F1 
*. OR E0V1 . 



**** 

* * 

* 4 * 



**** 

* * 

* 3 * 
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# Chart KE. 



$$BOMT03: 
2) 



Open Output Standard Labels t Forward, Phase 1 (Section 1 of 



SET 

RETENTION 

PERIOD = 



.* TLEL *. 
YES .'EXPIRATION 
....*. GATE 

*. ELANK . 



*»**«B1********* 

* RELOCATE CCWS 

* AND CCBS. SET 

* MODE AND MOVE 
*UNIT TYPE INTO 

* TAPECCB 



.* RETURN * 
.FROM MESSAGE 
*. WRITER .* 



* FILE * 

POSTED OPEN 
*. IN DTF .* 



NO . * TLEL * 
C*. INFORMATION 
*. IN DTF .* 



«»**F1********* 

MODIFY TLBL 

IMAGE IN MAIN 

STORAGE FROM 

INFORMATION 

IN DTF *HA 



*.»B2******* 

CALCULATE 

ABSOLUTE 

EXPIRATION 

DATE 



*.X 



REWIND 

**«»*«F2******** 
SVCOWAIT L 

REWIND TAPE 
* TC 

LOADPCINT 



Gl *. 
.* TLBL *. 
VOLUME 
SEQUENCE 
. NUMBER . 
*. BLANK.* 

**NO 



»**G2*«****** 

MAKE VOLUME 

SEQUENCE 

NUMBER 

COC1 



HI *. 
.♦ TLBL *. 
FILE 
SEQUENCE 
. NUMBER 
*. BLANK.* 

**NO 



MAKE FILE 

SEQUENCE 

NUMBER 

OOOl 



• ■"EXPIRATION *. 

.DATE AESOLUTE. 

*. (YYDDD) .* 



GETCATE 
YES 



C3 



WAS A *. 
.* //TPLAE * 
.CARD READ BY 
*.JCE CCN~ .* 
*.TRCL .* 

**NC 



***«C2********* 
MOVE TCCAY'S 

DATE TO 

CREATION DATE 

OF TLBL CARD 

IMAGE 



SET DTF 

BLCCK COUNT 

TC ZERC 



NC .* NCRWD 
,..*. SPECIFIEC 
*. IN DTF . 



YESLDPT X 
*«**«*B5*«* 
READTAPE 



REWIND TO 

REPOSITION 

TAPE 



NO .* 1600 
...*. BPI 

*. MOUNTED 



READ 

TAPE 

FORWARD 



V0L1 

LABEL 

READ 



MSG1CA 

MSGWRITE 



NO .* 

X..*. 


800 

BPI 
ASSIGNED 

***YES 


.."* 




WRITE 

* MESSAGE * 

4110A 


MSG44A X 

MSGWRITE LD 


NEWTAP 

X 
« 2 * 


E5* "*. 


WRITE 

* MESSAGE * 

4144A 


RESPONSE .* 

**VCLLNE 
.SERIAL NC. 


BYPASS 


X 
F4***». 




» 


X 
*«#*F5***«******* 
SVCCWAIT LD 



ISLCACPT 

«*****G3**« 
SVCOWAIT 



* A5* 
BACKSPC2 



.* TLBL *. 
*GENERATION 

NUMBER 
*. BLANK . 



MAKE 

GENERATION 

NUMBER 

C0C1 



7 CR 9 
TRACK 
TAPE 



WRITE 

VCL1 

LABEL 



FILE SERIAL, 

VOL SEQUENCE, AND 

FILE SEQUENCE NUMBERS 



WRITE 

DUMMY 

RECORD 



BACKSPACE 
TAPE ONE 
RECORD 



VERSION 

NUMBER 

BLANK 



*K2****** 

MAKE 

VERSICN 

NUMBER 



SET 

DENSITY 

EIT 
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Chart KF. 



$$BOMT03: 
2) 



Open Output Standard Labels, Forward, Phase 1 (Section 2 of 



ISOPEN 
YES 



FILE *. 
♦ALREADY POSTED. 
OPEN IN .♦ 
. DTF .* 



CI ♦ . 
.* TLBL *. 
.* FILE *. NO 
♦.SERIAL NUMBER.*... 
♦ . BLANK .* 



*****01********** 

* MOVE VOLUME * 

* SERIAL NUMBER * 

* INTO TLBL * 

* FILE SERIAL * 

* NUMBER * 
***************** 



COMPARE .♦. 

El *. 
.* VOL ♦ . 
YES .*SERIAL NO. * 
X. .*. EQUALS TLBL 
♦.FILE SER-.* 
♦IAL NO.+ 
♦ . .♦ 
♦ NO 



MSG12A 

****** PI *********** 

MSGWRITE LD 
*_*,.*_*_*_*_*_*_* 

WRITE 

* MESSAGE ♦ 

4112A 

************* 



♦ INITIALIZE ♦ 

♦ FOR MESSAGE + X 

♦ 4119A ♦ 

♦ * 
***************** 



******Q2*****^^^ + 

MSGWRITE LD 
*_*_*-*_*_*_*_*_* 

WRITE 

♦ MESSAGE ♦ 

4119A 

************* 



E2 ♦. IG 
.♦ ♦. 

♦ . 
RESPONSE 

.♦ 
♦ . .♦ 
♦ . .♦ 

♦NEWTAP 



HDR1 

LABEL 

READ 



*****B3 ********** 

* COMPARE * 

* TAPE DATE * 

* TC TODAY'S * 

* DATE * 

* * 
***************** 



C3 *. 
.* TAPE ♦. 
RETENTION ♦. 
PERIOD 
. EXPIRED .♦ 



*A4 
THE SVCOWAIT SUBROUTINE 
IS ENTERED TWICE TO 
REPOSITION THE 
T/SPE TO THE START OF 
THE EOF1 LABEL OF THE 
PREVIOUS FILE- 



.X 

BACKSPC2 X 

*****A5********** 

* MOVE HEX 27 * 

* INTO TAPECCW2 ♦ 

* COMMAND * 

* CODE * 

* * 
***************** 



BACKSPACE 

*****D3 ********** 

* MOVE ♦ 

* HEX 27 INTO ♦ 

* TAPECCW2 ♦ 

* COMMAND CODE ♦ 

* * 
***************** 



MOVE X 

*****B4* ********* 

♦ MOVE VOLUME * 

♦ SEQUENCE AND * 

♦ FILE SERIAL * 

♦ NUMBERS TO * 

♦ TLBL AREA ♦ 
***************** 



*****C4* ********* 

♦ ADD 1 TO FILE ♦ 

♦ SEQUENCE ♦ 

♦ NUMBER AND * 

♦ PLACE NUMBER * 

♦ IN TLBL AREA ♦ 
***************** 



*****D4********** 

* MOVE ♦ 

* HEX 3F INTO ♦ 

* TAPECCW2 * 

* COMMAND CODE * 

* * 
***************** 



.♦. 

Gl ♦. 

.♦ ♦. 

RESPONSE '. 

.♦ 
♦ . .♦ 
*. .♦ 

♦IGNORE 



*****Hi********** 

♦ MOVE VOLUME ♦ 

♦ SERIAL NUMBER ♦ 

♦ INTO TLBL ♦ 

♦ FILE SERIAL ♦ 

♦ NUMBER ♦ 
***************** 



X 



YESOPEN 

****** j X*********** 

READTAPE LD 

*_ *,. *_*_*_ *_ *_ *_ * 

READ 

♦ TAPE ♦ 

FORWARD 

************* 



VOL 
LABEL 
READ 



.* TLBL ♦ 
FILEID 
BLANK OR 
. ZERO 



*****P4********** 

* * 

* MOVE DTF * 
X* FILENAME TO * 

* TLBL FILEID ♦ 

* * 
***************** 



*****G3********** 
♦BUILD COMPLETE ♦ 

♦ STANDARD FILE ♦ 

♦ HDR1 LABEL * 

♦ FROM TLBL ♦ 

♦ CARD IMAGE ♦ 
***************** 



******H3*********** 

WRITETAP LD 

*_*-*_*_*_*_*_*_* 

WRITE 

♦ HDR1 ♦ 

LABEL 

************* 



HDRINFO ♦. YES 
SWITCH .♦... 
ON .♦ 



BACKSPACE 
TVmICE 



******q 5 *********** 

READTAPE LD 
*_*_*_*_*_*_*_*_* 

READ TAPE 
* FORWARD ♦ 

************* 



***E 3 *********** 


****** 54*********** 


E5 ♦. 


VCOWAIT LD 


SVCOWAIT LD 


.* USER ♦ 


*_*_*_*_*_*_*_* 


*_*-*_*_*_*_*_*_* 


.♦TRAILER OR 


BACKSPACE 


SPACE TAPE 


♦. EOF LABEL 


TAPE ♦ 


* TO * 


*. READ 




TAPEMARK 


♦ . .♦ 


************* 


************* 


♦ . .♦ 



WRITE 
MESSAGE ♦ 
41511 
*********** 



****K3********* 

♦ FETCH ♦ 

♦ $$B0MT04 ♦ 

♦ CHART KG ♦ 
*************** 



*****G5******+*** 

* MOVE * 

* HEX OF INTO * 

♦ TAPECCW2 * 

♦ COMMAND CODE ♦ 



**** 



********** 



REWIND AND 

* UNLOAD ♦ 

TAPE 

************* 



* INITIALIZE ♦ 

* FOR MESSAGE ♦ 

* 41201 ♦ 

* * 
***************** 



****K5********* 

* FETCH ♦ 

* $$BOMTOM ♦ 

* * 
*************** 
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I Chart KG. $$BOMT04: Open Output Standard Labels, Forward, Phase 2 



****A1********* 

* * 

* $$BOMT04 * 

* * 
*************** 



*****B1********** 

* RELOCATE * 

* CCWS AND CCBS * 

* TO TRANSIENT * 

* SAVE AREA * 

* * 
***************** 



*****Ci********#* 

* DETERMINE * 

* LUB AND PUB * 

* ENTRY * 

* ADDRESSES * 

* * 
***************** 



*****□!********** 

* INITIALIZE * 

* TAPE CCW TO * 

* SET MODE FOR * 

* EITHER 7 OR 9 * 

* TRACK TAPE * 
***************** 



NO .♦ REENTERED * 
...♦.FROM MESSAGE 
♦ . WRITER .* 



*****G1******* 

* * 

* TURN OFF 

* RETURN 

* BIT 

************** 



WAS 

RESPONSE 

IGNORE 



X 
INITIAL .*. 



* 2 ♦ 

* * 
**** 



***** A3 ********** 

* INITIALIZE * 

* COUNT FOR * 

* UP TO 8 * 

* USER HEADER * 

* LABELS * 
***************** 



.*. 

B2 *. 

.* LAST ♦ . 

USER 

LABEL 

. WRITTEN . 

*. *F5 .* 

*. .* 

*YES 



USERTEST .*. 



.* USER *. 

LABEL RTN 

ADDRESS 

.SPECIFIED. 



**** 

* * 

* 3 * 

* * 
**** 



*****A4* ********* 

* INITIALIZE * 

* TO EXIT TO * 

* USER LABEL * 

* ROUTINE * 

* * 
***************** 



**Q4******* 

* EXIT TO * 
* USER LABEL * 

*RTN. (LABADDR) * 
♦VIA SVC 8 RET* 

* VIA SVC 9 * 
*********** 



COBOLWRT X 

*****C3 ********** 

* MOVE HEX IF * 

* INTO TAPECCW2 * 

* COMMAND * 

* CODE * 

* * 
***************** 



NCTOPEN 

*****P2******* 

* TURN ON * 

* FILE OPEN 

* INDICATOR 

* IN DTF 

* * 
************** 



****G2********* 

* FETCH * 

* $$$BOPEN * 



************* 



*****E3******* 

* TURN OFF * 

* LAST USER * 

* LABEL WRITTEN 

* INDICATOR * 

* * 
************** 



NO .* FILE * 
...*. POSTED OPEN 
*. IN DTF .* 



************* 



****H2********* 

* RETURN TO * 

* ADDRESS IN * 

* REGISTER 14 * 
*************** 



*****G3******* 

* TURN ON * 

* EOF SWITCH 

* AND RESET 

* FIRST TIME 

* SWITCH * 
************** 



*****D4********** 

* * 

* MOVE USER * 

* LABEL TO * 

* I/O AREA * 

* * 
***************** 



E4 ♦ . 
.♦ *F5 * 
DID USER 
ISSUE A 
. LBRET1 
♦.MACRO.* 



*NO 



*****E5******* 

* TURN ON * 

* LAST USER * 
.X* LABEL WRITTEN 

* INDICATOR * 

* *F5 * 
************** 



.* TLBL *. NO 
. INFORMATION .♦... 
*. IN DTF .* 



WRITELAB 

******F4*********** 
WRITE TAP LD 



************* 



YES .* LAST 
...♦. USER LABEL 
♦. WRITTEN . 
*. *F5 .* 



.♦ HAVE ♦. 
.♦ 8 USER ♦. NO 
♦. LABELS BEEN .*... 
*. WRITTEN .* 



*F5 
LBRET1 MACRC SIGNALS 
THAT USER IS FINISHED 
PROCESSING LABELS-- 
LBRE72 MACRC SIGNALS 
THAT USER INTENDS TO 
PROCESS MORE LABELS. 



**** 

* * 

* 2 * 



***** j 3 ********** 



***************** 



* UPDATE * 

* TLBL INTO * 

* DTF * 

* * 
***************** 



****** «2 *********** 

* UPDATE * 

TLBL ONTO 

* DISK * 

************* 



****K3********* 

* RETURN TO * 

* LIOCS VIA * 

* SVC 11 * 
*************** 



****** j 4*********** 

MSGWRITE LD 
*_*_*_*_*_*_*_*_* 

WRITE 

* MESSAGE * 

41241 

************* 



****K4********* 

* * 

* CANCEL * 

* * 
*************** 



**** 

* * 

* l * 
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Chart KH. 



$$BOMT0 5: 
of 2) 



Open Input or Output r Nonstandard or Unlabeled (Section 1 



**** 

* * 

* i * 

* * 
**** 



****A1********* 

* * 

* $$B0MT05 * 

* * 
*************** 



*****Bi********** 

* RELOCATE * 

* CCWS AND CCBS * 

* IN TRANSIENT * 

* SAVE AREA * 

* * 
***************** 



*****d ********** 

* SET MODE * 

* AND MOVE * 

* UNIT NUMBER * 

* TO CCB * 

* * 
***************** 



.* RETURN * 
♦.FROM MESSAGE 
♦ . WRITER .* 



*. INPUT FILE .* 



.* IS ♦ . NO 
♦.TAPE AT LOAD-.*... 
*. POINT .* 



*C2 

RETURN ADDRESS 
DETERMINED BY 
OPERATOR RESPONSE- 
SEE DECI SICN BLCCK 
FOLLOWING A MESSAGE 
BLCCK. 



****02********* 

* RETURN TO * 

* ADDRESS IN * 

* REG 14 *C2 * 
*************** 



VOL1 *. NO 
LABEL .*... 
READ .* 



MSG25D X 

****** 03********** 

MSGWRITE LD 

*_*_*-*_*_*_*_*_* 

PRINT 

* MESSAGE * 

4125D 

************* 



***** 

*KJ * 

* A2* 

* * 



************* 



WAS 
TAPEMARK 
. READ 



*_*_*_*_*_ 



************* 



****** p3*********** 

IOCCIORT LD 

*_*._*_*_*_*_*-*_* 

REWIND 

* TAPE * 

************* 



REWINDIT 

******G2*********** 

IOCOIORT LD 

*_*_*_*_*_*_*_*_* 

REWIND 
* TAPE * 

******** 



IOCONOLB .*. 

HI *. 
.* * 
.* NON- 
*. STANDARD 
*. LABELS 



****** j i ********** 

IOCOIORT LD 

*-*>. *-*_*_*- *-*,-* 



******* 1 *********** 

IOCOIORT LD 
*-*-,- *_*_*_*_*_*_ * 

READ 
* TAPE * 

************* 



J2 ♦ . 
.* *. 

INPUT FILE 
*. 

*. .* 

""♦YES 



***** 

♦ KJ * 

♦ A4+ 



7 
TRACK 
TAPE 



IGNCRE RESPONSE 
DESTROYS VOL1 
LABEL. 





WRITE 




* 


TAPE 
♦ J4 


* 


*** 


********* 





****** J3 *********** 

BKSPACE LD 
*_*_*_*_*_*_*_*_* 

BACKSPACE 

* TAPE * 

♦ J4 



A WRITE AND 
A BACKSPACE 
ARE EXECUTED 
TO SET MODE. 
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Chart KJ. 



$$BOMT05: 
of 2) 



Open Input or Output, Nonstandard or Unlabeled (Section 2 



***** 

*KH * 
* El* 



10C0RDBK X 

****** A2 *********** 

IOCOIORT LD 

*_*-*_*-*_*_*_*_* 

READ TAPE 

* BACKWARD * 

************* 



.* NON- *. NO 
*. STANDARD .*... 
*. LABELS .* 



IOCOREDB 

******£ 1*********** 

IOCOIORT LD 

*_*_*_*_*_*_*_*_* 

READ TAPE 

* BACKWARD * 

************* 



IOCOXITU 

**E2******* 

* EXIT TO * 
* USER LABEL * 

*RTN. (LABADDR) * 
♦VIA SVC 8 RET* 

* VIA SVC 9 * 
*********** 



ICCOBNOL 

******p 2 *********** 
IOCOIORT LD 



************* 



******P3 *********** 

MSGWRITE LD 
*_*_*_*-*_*_*_*_* 

WRITE 

* MESSAGE * 

4117D 

************* 



**** 
IOCOPNFL 

*****G1******* 

* * 

* SET OPEN 

* INDICATOR IN 

* DTF TABLE 

* * 
************** 



****H1***** 

* FETCH 

* $$80PEN 



IOCORFWD 

******H2 *********** 

IOCOIORT LD 

*_*_*_*-*_*_*_*_* 

REAO TAPE 

* FORWARD * 

************* 



****H3 ********* 

* SVC 6 * 

* CANCEL * 

* * 
*************** 



*****B4******* 

* * 

* SET 

* UTILITIES 

* BIT OFF 

* * 
************** 



**C4******* 

* EXIT TO * 
* USER LABEL * 

*RTN. (LABADDR) * 
♦VIA SVC 8 RET* 

* VIA SVC 9 * 
*********** 



YES .* 

...*. UTILITIES 
*. BIT ON . 



[OCOTMCK 

****** E 4*********** 

IOCOIORT LD 



************* 



YES .* 

X..*. TAPEMARK 
*. READ 



SET TAPE 

CCW CHAIN 

BIT ON 



******** 



NON- 
STANDARD 
. FILE 



**P5******* 

* EXIT TO * 
* USER LABEL * 

*RTN. (LABADDR) * 
♦VIA SVC 8 RET* 

* VIA SVC 9 * 
*********** 



TAPEMARK *. NO 
OPTION .*••• 
.SPECIFIED.* 



* ** * KH-B5.C5 



******H4*********** 

BKSPACE LD 
*_*_*_*_*_*_*_*_* 

BACKSPACE 

* ONE * 

RECORD 

************* 



* 1 * 

* * 
**** 



*****j3******* 

* TURN ON EOF* 

♦ SWITCH AND ♦ 
X* TURN OFF 

* FIRST TIME ♦ 

♦ SWITCH * 
************** 



****K3********* 

* RETURN TO ♦ 

* LIOCS VIA ♦ 

* SVC 11 * 
*************** 
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Chart KK. $$BOMT06: Open Workfiles, Magnetic Tape (Part 1 of 2) 



****A1********* 

* * 

* $$B0MT06 * 

* * 
*************** 



TRANSENT 

*****B1********** 

* RELOCATE * 

* CCWS AND CCBS * 

* IN TRANSIENT * 

* SAVE AREA * 

* * 
***************** 



7-TRACK 

TAPE 

.SPECIFIED. 



*****C2********** 

* SET MODE FOR * 
1600 BPI ON * 

9-TRACK * 

* TAPE * 

* * 
***************** 



.X* 



7 OR 9 *. 7 
TRACK .*.. 
TAPE .* 



.* 1600 BPI 
TAPE 
*. MOUNTED 



SEVENTRK 

*****D1 ********** 

* SET MODE FOR * 

* 16C0 BPI ON * 

* 7-TRACK * 

* TAPE * 

* * 
***************** 



RETURN *. YES 
FROM MSG .*.... 
. WRITER .* 



****E2********* 

* RETURN TO * 

* ADDRESS IN * 

* REG 14 * 
*************** 



MSG44A 

******E3********** 

MSGWRITE LD 
*_*_*_*_*_*_*_*_* 

WRITE 

* MESSAGE * 

4144A 

************* 



******** 



* MOVE UNIT * 

* NUM-BER * 

* INTO CCB * 

* * 
***************** 



**** 

* * 

* 2 * 

* * 
**** 



CONTINUE 

******G3****** 

IOCOIORT 

*_*_*_*_*_*_*. 

READ 

* TAPE 



***** 
LD 
*_* 







F5 *. 








* *. 






YES .* 


V0L1 


*. 




...*. 


LABEL 


.* 




* 


READ 


* 






*. .* 






X 


*. .* 






#♦*** 


*N0 




**KKA- 


-A3*** * 
* * 
* 
RDAGAIN 


X 






******Q5*********** 




IOCOIORT 


LD 




*_*- 


.*_*_*_*_*. 
BACKSPACE 


-*-* 




* 


TAPE 


* 



YESREWND X 

******H2********** 

IOCOIORT LD 

*_*_*_*-*_*_ *_ *_ * 

REWIND TAPE 

* TO LOAD- * 

POINT 

************* 



************* 



* 2 * 

* * 
**** 



************* 



******H5*********** 

IOCOIORT LD 

*_*_*_*_*_*_*_*_* 

WRITE 
* TAPEMARK * 

************* 



NREWIND 

****** j 1*********** 

IOCOIORT 



.X... 
X 

***** 

**KKA-K3 **** 



_*_*_*,. *_*,_* 



**** 

* * 

* 1 * 
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Chart KKA. $$BOMT06: Open Workfiles, Magnetic Tape (Part 2 of 2) 



RCAGAIN X 

IOCOIORT 



■•ADDITIONAL 
VOL LABEL 
*. READ 



WRITHDR X 

#«*»«*D2**« 
IOCOIORT 



HDR1 

LABEL 

READ 



.* HDR1 * 
LABEL 
ZEROS OP 
. BLANKS 



BUILD DUMPY 

HEADER LABEL 

OF ZEROS 



WRITE 

DUMMY 

HEADER 



IOCOIORT LD 

READ TAPE 



.« IS 

FILE 
*. EXPIRED 



INITIALIZE 

TO WRITE 

MESSAGE 

4119A 



« SVC 2 

•FETCH SSBMSGWR 



X...*. RESPONSE 
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Chart KL. $$BJCOPT: Job Control Tape Open Routine (Section 1 of 3) 



FETCHED BY 
JOB CONTROL 
OR $$BCMT07. 



SET INDICATOR* 



.* RETURN * 
.FROM MESSAGE 
*. WRITER .* 



SAVE 

LOGICAL 

UNIT 



RESET 

INDICATOR 

TO HEX 03 

FOR NO 

1052 



B4 *. 


»****B 5* ** ****** 




•MSGWRITE KN 


FILE *. YES 




PROTECT .* 


...X* WRITE 




* MESSAGE 


.* 


* 4170A 



***C4******* 

TURN ON * 

USER ERROR 

ROUTINE BIT 

IN CCB 



GET 

DEVICE 
NUMBER 



»*«*E1********* 

MOVE LOGICAL 

UNIT TO DUMMY 

CCB IN 

MESSAGE 

AREA 



*»**F1* ******* 

INSERT ADDR 

OF SET MODE 

CCW INTO 

TAPE CCB 



****D3****** 

GET LUB 

AND PUB 

POINTERS 



YES .* IS 
...*. RESPONSE 
*. NEWTAP 



*D5****» 

SVC 6 

CANCEL 



*»*G1******* 

RELOCATE 

MTCCW2 

ADDRESS IN 

TRANSIENT 

AREA 



LUB .* 


♦.UNRECOVERABLE. 


VALID .* 


*.I/0 ERROR.* 










*YES 


♦ NO 










. 


*KM *... 




♦ Kl* 


X 






USDSTM X 


F3 *. 


«***«P4* ♦♦♦♦♦♦ 




♦ TURN OFF ♦ 


IS *. 


* USER ERROR ♦ 


DEVICE .* 


* ROUTINE BIT 


TAPE .* 


* IN CCB * 



****F 5* ***♦♦♦ 
TURN OFF ♦ 
USER ERROR 
ROUTINE BIT 
IN CCB 



.♦. 


MSG83I X 


GOTOIO X 


HI *. 


***«*H 2* ********* 


***»*H3*^^^^* 


.* IS *. 


* INITIALIZE * 




♦ RETURN ♦. NO 


♦ TO WRITE * 


* SET 


FROM MESSAGE ...... 


♦ MESSAGE * 


* MODE MASK 


*. WRITER .* 


* 48 831 * 


* IN CCW 



*♦♦** J 1 «««*«***« 
•TURN OFF RETN. 

* FROM MESSAGE 

* WRITER SWITCH 

* AND RESTORE 

* MODE SET 



SVC 2 

FETCH 

$$BMSGWR 



VOL 1 
LABEL 
READ 



INSERT MODE 

MASK IN 

MTCCW1 

AGAIN 



**^*J5******* 
TURN ON * 
USER ERROR 
ROUTINE BIT 
IN CCB 



RETURN TO 

ADDRESS IN 

REG. 14 
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Chart KM. $$BJCOPT: Job Control Tape Open Routine (Section 2 of 3) 



.* *. NO 

•.UNRECOVERABLE.*... 
».I/0 ERROR.* 



TURN OFF * 
USER ERROR 
ROUTINE BIT 
IN CCB 



SKPVOL X 
»*****B3«* 
EXCPRG 



TURN OFF * 
USER ERROR 
ROUTINE BIT 
IN CCB 



FORWARD 
SPACE 
FILE 



YES .*ADDITIONAL * 
...*. VOLUME LABEL 
*. READ .* 



*»*D3******* 

SET- * 

SWITCH TO 

HEX FF FOR 

USER HEADER 

LABELS * 



FORWARD 
SPACE 
FILE 



»«*»C4 ********* 

* SVC 11 * 

* RETURN TO * 
♦PROBLEM PROGRAM* 



ERRMSG X 

*****C 5********** 
•MSGWRITE _KN* 

* WRITE * 

* MESSAGE * 

* 4172A * 



SET 

DENSITY TO 

STANDARD 

MODE 



TURN ON * 
USER ERROR 
ROUTINE BIT 

IN CCB 






BACKSPACE 

ONE 

RECORD 



HDR1 *. NO 
LABEL .*..X 
READ .* 



IS *. NO 

FILE .*..) 

ACTIVE .* 



* F4* 


IPTCHK X 




»*««*«K 2* ******** 




EXCPRG KN 


USDSTM 






REWIND 




* TAPE * 



WRITE 
MESSAGE 
4171A 



.* *. IGNORE 
.* RESPONSE *. 
*.IS IGNORE OR .*... 
*. NEWTAP .* 



* H3* 
GOTOIO 



*«*«E5******** 

MOVE 

WORKFILE 

HEADER LABEL 

TO I/O AREA 



WRITE 

HEADER 

LABEL 



SET 

MODE IN 

CCW FROM 

PUB 



* E2* 
SVCALL 
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Chart KN. $$BJCOPT: Job Control Tape Open Routine (Section 3 of 3) 



CHKTPM 



♦***A4***««* 
* MSGWRITE 



B2 *. 
.* UNIT *. 
EXCEPTION *. NO 
BIT ON IN .»... 
CCB .* 



* END *. 

OF FILE 

BIT ON IN 

CCB 



MOVE 

MESSAGE TO 

HIGH MAIN 

STORAGE 



RETURN TO 
CALLING 
ROUTINE 



WRITTM*KM 



.* WAS *. 

.♦THIS PHASE 

*. FETCHED BY 

*. PDUMP . 



RESET 

PDUMP 

INDICATOR 



INSERT 

SYMBOLIC UNIT 

NAME IN 

MESSAGE 



.* WAS *. 

*THIS PHASE 
FETCHED BY 
*. BDUMP 



**H2******* 

RETURN TO 

CALLING 

ROUTINE 



SVC 2 

FETCH 

$$BPDUMP 



RESET 

BDUMP 

INDICATOR 



**H3»**»*» 

SVC 2 

FETCH 

$$BDUMP 



*«**F4******** 

PUT SYMBOLIC 

UNIT IN 

DUMMY CCB 

IN I/O AREA 



*»*»F5***»* 
EXCPRG 



X 




EXCPRG X 


G4*«**** 

SVC 2 

FETCH 

S$BMSGWR 


• 


* LOAD REG 1 

* WITH ADDRESS 

* OF CCB 







EXECUTE 

* CHANNEL * 

PROGRAM 

* (SVC 0) * 








**«««** 


">»»*** 












X.. . 






) 


< 




RETURN TO 
CALLING 
ROUTINE 


". 


YES 


.* 


J5 *. 

IS 
I/O 
.COMPLETE 


'*:* : 


* 




* 
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Chart KP. $$BCE0V1: EOF/EOV Monitor (Section 1 of 2) 



**A1«***«* 
$$BCE0V1 



* RELOCATE CCB, * 

* AND CCB ADDRESS* 

* CONSTANTS * 



MCVECYL X 

****«C1»*****«*»* 

* CALCULATE CCH- * 
•OF SYSRES LABEL* 

* INFO. AND PUT * 

* IN OPEN TABLE * 

* AT TRAN+1176 * 



****C1«**»**»*« 

PUT ADCR. OF 

USER REGISTER 

SAVE AREA 



•INIT. TC FETCh 

* EOV FCR A 

* SYSTEM UNIT 

* UBCMT07 



OPEN TABLE 



*****E1********* 

* PUT ADDR. OF 
*LBL. SAVE AREA 

* IN OPEN TABLE 

* AND IN 

* READ DATA CCW 



•INIT. TO FETCH * 
•OUTPUT EOV FOR * 
•PROGRAMMER UNIT* 
* $$ECMT04 * 



READ LABEL 
INFORMATION 
FROM SVSRES 



NO .* ENTRY 
...*. FROM FEOV 
•. MACRO . 



****G1»**«»**» 
SET 1052 

ABSENT 

INCICATOR IN 

OPEN TABLE 

(X'03« ) 



*****F3*******«« 
•INIT. TO FETCH 
» EOV FORWARD 

• INPUT FOR 
» PROGRAMMER 

• UNIT $$BCMT01 



•SAVE ADDRESS OF* 
« DTF IN OPEN * 
• TABLE *H2 * 



INITIALIZE TO 
PRINT INVALID 

FILE TYPE 
MESSAGE 48801 



• H2 
POINTER DIRECTLY 
TO DTF I S UNLIKE 
ALL OTHER POINTERS 
WHICH HAVE POINTER 
TO POINTER TO DTF. 



•INIT. TO FETCH 

• EOF BACKWARD 
» INPUT FOR 

• PROGRAMMER 

• UNIT $$ECMT03 



•OF SYSRES LABEL* 
•CYL. INTO OPEN * 
•TABLE FOR TAPE • 



SVC 2 FETCH 

DESIRED EOF/ 

EOV ROUTINE 



••G5««««*«* 

TURN ON 
BLOCKED 
RECORD 
INDICATOR 
IN DTF 



EXECUTE 
TRUNC RTN 
IN LOGIC 

MODULE 



TURN OFF 
BLOCKED 
RECORD 

INDICATOR 
IN DTF 



.*. 


FCHMSG 


Kl •. 






•***K2***** 


• . NO 


• SVC 


TAPE FILE .*.... 


....X* FETCH 




» $$B0MSG1 










*YES 
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Chart KQ. $$BCE0V1: EOF/EOV Monitor (Section 2 of 2) 



*#**B 2* ****** 
EXCP 

SUBROUTINE 



»***B4 ******** 

* DOIO 

* SUBROUTINE 



»***C2****** 



READ LABEL 
* INFO. ON 
NORMAL TRACK 



***«*E 2* ********* 

* INIT. TO READ * 
*STD. LABEL INFO* 

* ON TRACK * 

* NOT FOUND ON * 

* NORMAL TRACK * 



NRF 

OR END OF 

.CYLINDER . 



SEARCH AND 
READ INFO. 
ON TRACK 



.*RECORD *. 

FOUND *. NO 
IN PROPER .*... 
. AREA .* 



* INIT FOR 
•NO LABEL INFO. 

* MESSAGE 

* 48 811 



RETURN TO 
EOF/EOV 
MONITOR 



»»»«G5******* 
RETURN 
TO EXCP 
SUBROUTINE 



SVC 2 

PRINT 

MESSAGE 

48011 



**J2****» 
SVC 6 
CANCEL 
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Chart KR. $$BCMT01: Tape Close, EOF/EOV Input Forward, Phase 1 (Section 1 of 2) 



**** 
* * 

* 2 * 

* * 
**** 



****A1********* 

* $$BCMT0l * 

* ENTERED FROM * 
*EOF/EOV MONITOR* 

*************** 



TRANSENT X 

*****Bi ********** 

* RELOCATE * 

* CCWS AND CCBS * 

* IN TRANSIENT * 

* SAVE AREA * 

* * 
***************** 



*****C1********** 

* SET NODE * 

* AND MOVE * 

* UNIT NUMBER * 

* INTO CCB * 

* * 
***************** 



.* RETURN *. NO 
.FROM MESSAGE .*... 
*. WRITER .* 



SKIPLBLS 

******B3 *********** 

SKIPFWO LD 

*_*_*_*_*_*_*_*_* 

SPACE OVER X 
* USER * 
LABELS 
************* 



.* NON- *. 

*STD LABELS 

SPECIFIED 

*. IN DTF . 



NO .* LABADDR 
...*. SPECIFIED 
*. IN DTF . 



» EXIT TO * 
« USER LABEL * 
*RTN. (LABADDR) 
VIA SVC 8 RETN* 

* VIA SVC 9 » 







***** 






*KS * 

* G2* 

* * 






* 


.*. 

D2 *. 

* * 




. IOCENORW 
.* 


FEOV 

SWITCH ON 

IN DTF 


*. 
*" 


YES X .* 
* X*. S 

*. 



***** 
*KS * 
* F3* 



NORWD 
SPECIFIED 
IN DTF . 



****E1********* 

* RETURN TO * 

* ADDRESS IN * 

* REG 14 *F1 * 
*************** 



RETURN ADDRESS 
DETERMINED BY OPERATOR 
RESPONSE - SEE DECISION 
BLCCK FOLLOWING A 
MESSAGE BLOCK. 



.* STD *. 

LABELS 

SPECIFIED 

. IN DTF . 



ICCERECP 

ICCCREWR 



**** 

* * 

* 2 * 



******F2*********** 

IOCOIORT LD 

*_*_*_*-*-*-*_*-* 

READ 

* TAPE * 

************* 



* RESET DTF * 

* BLOCK COUNT * 

* TO ZERO * 

* * 
***************** 



.* USER *. 
SPECIFIES *. YES 
END OF .*..X 
. FILE .* 



.* REWIND *. 

UNLOAD 

♦.SPECIFIED.* 



B5 *. 

.* IS *. 

.* COBOL * 

. CALLING FOR 

*. REWIND .* 

♦UNLOAD.* 



*YES 



*****C5********** 

* MOVE * 

* REWIND-UNLOAD * 

* INTO CCW * 

* COMMAND * 

* CODE * 
***************** 



REWIND AND 

* UNLOAD * 

TAPE 

************* 



* RESET DTF * 

* BLOCK COUNT * 

* TO ZERO * 

* * 
***************** 



****P5********* 

* FETCH * 

* $$BCMT02 * 

* (SVC 2) * 
*************** 



IOCECVSW .*. 

HI *. 

.* EOF *. 

.* OR EOV *. 

*. SW. ON FOR . 

♦.IBM SORT .* 

*. .* 



*****jl********** 

* SAVE A * 

* V-CHARACTER * 

* AS AN * 

* INDICATOR * 

* TO USER * 
***************** 



*****Kl******* 

* * 

* TURN OFF 

* EOF SWITCH 

* IN THE DTF 

* * 
************** 



EOV1 

LABEL 

READ 



EOF1 
LABEL 

READ 



FEOV 
SWITCH ON 
. IN DTF . 



EOF 
SWITCH ON 
. IN DTF . 



.* USER *. 
.* SPECIFIES *. YES 



NO 



*. VOL. .* 
*. .* 
*. .* 
*NO 
**** 

* * . 

* 3 *... 

* * . 
**** 

. MSG30A X 

******H4*********** 

MSGWRITE LD 
*_*_*_*_*_*_*_*_* 

WRITE 

* MESSAGE * 

4130A 




X 
IOCETEST .*. 

H5 *. 

.* *. 

.* NORWD *. YES 

*. SPECIFIED .*... 

*. IN DTF .* 

*. .* 



* TURN ON 

* EOF SWITCH 

* IN THE DTF 

* * 
************** 



*****«2********** 

* SAVE AN * 

* F-CHARACTER * 

* AS AN * 

* INDICATOR * 

* TO USER * 
***************** 



IOCEDONE 

*****j3******* 

* POST FILE * 

* CLCSED AND * 
*TURN OFF LIOCS * 

* SWITCH IN THE* 

* DTF * 
************** 



****«3********* 

* EXIT TG USER * 

* END OF FILE * 

* ADDRESS * 
*************** 



************* 



J4 *. 
.* * 

RESPONSE 



****** j5*********** 

IOCCREWR LD 
*_*_*_*-*-*_*-*-* 

REWIND 
* TAPE * 

************* 



.X. IOCEUPKK 



***** 
*KS * 
* A2* 
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Chart KS. $$BCMT01: Tape Close, EOF/EOV Input Forward, Phase 1 (Section 2 of 2) 



*KR-K1,K2 



ERROR 

I N 
COUNT 



MSG31D 

******E3*** 
MSGWRITE 



I0CESKP4 .». 




D2 *. 








.« LABADDR *. NO 




*. SPECIFIED .*... 




*. IN DTF .♦ 












*YES 


* 1 « 








**** 


x * 


x'. 




X 


IOCERTAP X 


ICCEREWT .*. 




E3 *. 


IOCOIORT LD 






.** NORWD **. NC 


READ 


*. SPECIFIED ...... 


* TAPE * 


*. IN DTF .* 








*. .* X 




•YES ***** 




*KP * 




* E5* 










X 


IOCEREOP 


F2***». 


**«*«*F3*********** 




SKIPFWD LC 


YES .*ADDITICNAL**. 




...*. EO TYPE .♦ 


SPACE OVER 


*. LABEL .* 


* USER * 


• .READ .* 


LABELS 



«*D4****** 
CANCEL 
(SVC 6) 



IOCESETR 

«*H2******* 

* EXIT TO « 
* USER LABEL * 

*RTN. (LABADDR) 
♦VIA SVC 8. RET* 

* VIA SVC 9 * 



J2 



* D3* 

ICCENCRW 



DID *. 
♦USER ISSUE 

A LBRET1 
*. MACRO . 

*. *J3 .* 

"*YES 



*J3 
LBRET1 MACRO SIGNALS 
THAT THE USER IS 
FINISHED PROCESSING 
LABELS - LBRET2 MACRO 
INDICATES THAT THE 
USER INTENDS TO 
PROCESS NORE LABELS. 
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» Chart KT. $$BCMT02: Tape Close, Alternate Switching for EOV (Section 1 of 2) 



ENTERED FROM 
$$BCMTC1 OR 
$$BCMTCl4. 



SAVE 

LUB AND PUB 

POINTERS 



•SYSPCH AND » 

SYSLST SAME 
«. DEVICE .» 



RETURN TO 
ADDRESS IN 
REG 14 *D1 



RELOCATE 

CCW AND CCB 

ADDRESSES 



YES .* RETURN * 

».FROM MESSAGE 

«. WRITER .* 



NXTALT 

»«***B3* 
•GETPUB 



GET 

PUB 
ADDRESS 



»**C3****»*« 

SAVE 

MODE RESET 

BYTE FROM 

PUB 



MOVE SYSPCH 

JIB POINTER 

INTO LUB FOR 

SYSLST 



»»*«C4»»»»»»»* 

MOVE SYSLST 

JIB POINTER 

INTO LUB FOR 

SYSPCH 



»D1 
RETURN ADDRESS DETER- 
MINED BY OPERATOR 
RESPONSE - SEE DECISION 
BLOCK FOLLOWING A 
MESSAGE BLOCK. 



CHKALC 

»».»»D5» 
•GETPUB 





ISV3 


. «. 


*«»E1**«*****«* 




E2 • . 


MODIFY TLBL » 




.» IS ». 


CARD IMAGE IN « 


YES 


» TLBL 


MAIN STORAGE »X.. 




INFORMATION 


WITH DTF * 




*. IN DTF . 


INFORMATION * 




*. . » 



WRITE 

MESSAGE 

41261 



.•HEADER 
YES .*INFORMAT 

». SW ON I 

». DTF 



GET 

POINTER 
TO PUB 



SEIZE 
SYSTEM 
(SVC 22) 



»*»E3*«**»«» 

GET 

ADDRESS OF 

NEXT JIB 

IN CHAIN 



F3 ». 

.•STORED ». 

» ALTERNATE 

ASSIGNMENT 

«. IN NEXT . 

*. JIB .» 



• YES 



*«***G3**»«*»»»* 
•MOVE ALTERNATE 

* PUB POINTER 

* UP IN 

* CHAIN 



GET CHAIN 

BYTE POINTER 

TO NEXT 

JIB 



GET NEW 

PUB 
ADDRESS 



.* ALTERNATE * 
. PUB SAME AS 
•.ORIGINAL .« 



F4 ». 
.* IS ». 

.* REWIND- ». 

UNLOAD .» 
•.SPECIFIED.* 


F5 *. 
.* IS ». 

YES .• ALTERNATE 
...». DEVICE 
♦. DOWN 


'•YES 


X ». .» 
«»»» *NO 




• 3 • 




**«* 


X 

IOCOIORT LD 

REWIND AND 

• UNLOAD ♦ 

TAPE 


MDRSBY X 

*»*»#G5*««»«»« 

* INSERT SAVED 

* MODE BYTE 

* INTO 

» ALTERNATE 

* PUB 



RELEASE 
SYSTEM 
(SVC 22) 



GET PUB 

ADDRESS FOR 

ASSIGNED LUB 



WRITE 

MESSAGE 

4140A 



**»K2«*«»**«» 

MODIFY SET 

MODE CCW 

AND MOVE 

UNIT NUMBER 

INTO CCB 



STORE STD 

PUB IN END 

OF JIB CHAIN 



#K5»*»»» 

SVC 6 

CANCEL 
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Chart KU. $$BCMT02: Tape Close, Alternate Switching for EOV (Section 2 of 2) 



***** 

*KT * 
* G5* 



***** 
*KT * 
* K4* 



**A2******* 

* * 
SEIZE 

SYSTEM 
(SVC 22) 

* * 
*********** 



RELEASE 

SYSTEM 

(SVC 22) 

* * 

*********** 



INPUT FILE 



*****D2* 

* STORE DTF * 

* TABLE * 

* ADDRESS AND * 

* POINTER * 

* * 
***************** 



****E2********* 

* SVC 2 

* FETCH 

* $$BOPEN 
*************** 



INPUTCK 


D3 *« 






* STD 


* 


.* 


LABELS 




*. 


SPECIFIED 


*. 


IN DTF 





.*. 


IOCENONF 


E3 *. 


X 


♦VOLUME *. 


****(= 4* ******** 


SEQUENCE *. 


* SVC 2 


NUMBER .* 


* FETCH 


BLANK .* 


* $$BOMT05 


*. .* 


*************** 



*****F3********** 

* UPDATE THE * 

* TLBL VOLUME * 

* SEQUENCE * 

* NUMBER * 

* BY 1 * 
***************** 



.* TLBL * 
*. INFORMATION 
*. IN DTF .* 



UPDATE 

*****H3******** 

* MODIFY DTF 

* FROM UPDATED 

* TLBL 

* INFORMATION 



**** 



****** 



****J3*** ****** 

* SVC 2 * 

* FETCH * 

* $$BOMT01 * 
*************** 



*****G4********** 

* INITIALIZE * 

* TO WRITE * 
.X* UPDATED TLBL * 

* INFORMATION * 
*BACK ONTO DISK * 
***************** 



******H4*********** 

IOCOIORT LD 

*_*_*_*_*_*_*_*_* 

WRITE TLBL 

* ON * 

SYSRES 

************* 
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Chart KV. $$BCMT0 3: Tape Close, EOF Input Backward 



***«A2* ******** 

* *$BCMT03 * 

* ENTERED FRCM * 
•ECF/ECV MONITOR* 



RELOCATE 
CCB AND CCW 
ADDRESS IN 

TRANSIENT 
AREA 



IOCERBTP X 
**»***B5»** 
IOCOIORT 



• CI 
RETURN ACCRESS DETER- 
MINED EY OPERATOR 
RESPONSE-SEE DECISION 
BLOCK FOLLOWING A 
MESSAGE BLOCK. 



***D1******* 
RETURN TO 
ADDRESS IN 
REG 14 «C1 



*** *Q2* ****** * 

SET MODE 

AND MOVE 

UNIT NUMBER 

INTO CCB 



YES .* RETURN 

....*. FRCM MESS 

*. WRITER 



YES .« HDR1 
...... LABEL 

«. READ 



.« NON- *. 
•*STD. LABELS*. YES 
*. SPECIFIED ...... 

*. IN DTF .« 



.* STD *. 

LABELS 

SPECIFIED 

. IN DTF . 



* LABADDR 

SPECIFIED 
*. IN DTF . 



**F3««*«*«« 

« EXIT TO * 

* USER LABEL • 

* RTN (LAEACCR) 

VIA SVC 8 RETN* 

• VIA SVC 9 « 



CA *. 

.* LABEL *. 

•BLOCK COUNT* 

EQUALS DTF 

•. BLOCK .* 

*.COLNT.* 

*"*NO 



MSG31D 

**«**»E4***** 
MSGWRITE 



ICCESWCH 
YES 



D5 



WRITE 

MESSAGE 

4121D 



IS 
RESPONSE 
. IGNORE 



****G1******« 

SET SWITCH * 

AT LOCATION 

IOCESWCH TO 

PROCESS USER 

LABELS * 



IOCESBYT X 

♦#***G2******* 

* TURN CN * 

* END OF FILE 

* INDICATOR 

* IN DTF 



»«**H2**»**** 
TURN OFF * 
LIOCS FIRST 
TIME SWITCH 
IN DTF 



»««*J2******** 

NOVE USER 

END OF FILE, 

EOFACDR, 

ADDRESS TO 

COMM REGION 



USER ISSUES A LBRET1 
MACRO TO SIGNAL WHEN 
FINISHED PROCESSING 
LABELS - LBRET2 MACRO 
INDICATES THAT THE 
USER INTENDS TO 
PROCESS MORE LABELS. 



.* LAST *. 

LSER 

LABEL 

.PROCESSED. 

*. *H3 .* 

**«NC 



NO .* LABADDR 
X..*. SPECIFIED 
*. IN DTF . 



NO .* UHL 
X..*. TYPE LABEL 
*. READ 



**G5* 

* EXIT TO * 
* USER LABEL * 

* RTN (LABADDR) 
VIA SVC 8 RETN* 

* VIA SVC 9 * 



H5 *. 
.♦ USER * 
* LABEL 

ROUTINE 
•.COMPLETE 
•• »H3 .• 



* 


SET BRANCH 

CODE AT LOC 

IOCESWCH TO 

(NOP) 


•• 


......xl 

X 

* 1 » 



SVC 11 
EXIT TO USER 
EOF RTN ADDR 



Charts 207 



• Chart KW, $$BCMT04: Tape Close, EOV Output Forward (Section 1 of 2) 



»»#*A1»»««»*»*» 
* $BCMT04 • 
» ENTERED FROM • 
*E0F/E0V MONITOR* 



»#**B1**»»**»» 

RELOCATE 

CCW AND CCB 

ADDRESSES 

IN TRANSIENT 

AREA 



••VOLUME » 
SEQUENCE 
NUMBER 
- BLANK 



MAKE 

VOLUME 

SEQUENCE 

NUMBER 



•EXPIRATION 

ABSOLUTE 
». DATE 



* ADD TODAY'S * 

* DATE TO RETElM- * 
•TION PERIOD TO » 

* CALCULATE » 
•EXPIRATION DATE* 



A5 *. 

.* NON- *. 

.♦ STD. *. 

.LABELS SPECI-. 

«. FIED IN .» 

». DTF .* 

*»YES 



LABADDR ». NO 
SPECIFIED .*..X 
. IN DTF .« 



El ». 

.» STD ». 

LABELS 
SPECIFIED 
. IN DTF . 



» TLBL » 

INFORMATION 
». IN DTF .» 



»»»»»G1«*»«»»»*«* 
» MODIFY TLBL • 
» CARD IMAGE IN » 
» MAIN STORAGE * 
• WITH DTF • 
•INFORMATION «G2* 



.•FILEID • 
IN TLBL 
ZERO OR 

. BLANK 



MOVE DTF 

FILENAME 

INTO TLBL 

FILEID 



•GENERATION 

NUMBER 
«. BLANK . 



»«*D2»«»««»* 

MAKE 

GENERATION 

NUMBER 

000 1 



**«*#C4***»*»»«» 
•MOVE TLBL CARD 
•INFORMATION TO 
•OUTPUT AREA TO 
* WRITE E0V1 
» LABEL 



» INCREMENT * 
•VOLUME SEQUENCE* 
•NUMBER IN TLBL » 
» CARD IMAGE * 



BY 1 



SAVE 

V-CHARACTER 

AS INDICATOR 

TO USER 



»*D5*»****» 

* EXIT TO * 
* USER LABEL • 

» RTN (LABADDR) 
VIA SVC 8 RETN* 

• VIA SVC 9 » 



VERSION ». YES 
NUMBER .♦ 

BLANK .« 



MAKE 
VERSION 
NUMBER 



FILE SERIAL, 

VOL SEQUENCE, AND 

FILE SEQUENCE NUMBERS. 



YES .» / 

...••CARD 
*.J0 



WAS A 
/TPLA 
READ 



TLBL ». YES 

ORMATION .* 

N DTF .• 



WRITE UPDATED 

TLBL BACK 

ONTO DISK 

» (SVC 0) » 



UPDATE DTF 

WITH NEW 

TLBL 

INFORMATION 



**#»H3*»»*»«* 

MOVE TODAY'S 

DATE INTO 

TLBL CARD 

IMAGE 



•EXPIRATION 

DATE 
«. BLANK . 



SET 
RETENTION 
PERIOD TO 
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Chart KX. $$BCMT04: Tape Close, EOV Output Forward (Section 2 of 2) 



CONTINUE X 

#»»**C2*«»»*«»*** 
*GET BLOCK COUNT* 

* AND SET LOC. * 

* I0CCSWT1 FOR » 

* USER HDR * 

* LABELS » 



IOCCWRTT X 
*»»**«D2»«« 
I0C0I0RT 



LABACCR 

SPECIFIED 

. IN DTF . 



NO .* SWITCH * 
X..*.SET FOR USER 
*. LABELS .* 



*G2»**««»«* 

SET UP 
-CHARACTER 

INDICATOR 

TO USER 



* EXIT TO * 

* USER LABEL » 

* RTN (LABADDR) « 

VIA SVC 8 RETN» 

* VIA SVC 9 * 



.* COBOL *. 
.INDICATOR ON .* 
*. IN DTF .* 



IOCCWRIT X 
»»»**»B4**» 
I0COI0RT 



* REWIND- * 

UNLOAD FROM 
». COBOL .» 



NORWD 

SPECIFIED 

. IN DTF . 



EWIND *. YES 
UNLOAD .* 

ECIFIED.* 



IOCCRWTP 

«*****F*4«»* 

IOCOICRT 



RESET 

BLOCK 

COUNT 

TO ZERO 



»*Hi+»»»*»* 

SVC 2 

FETCH 

$$BCMT02 



REWIND AND 

UNLOAD 

TAPE 



.* USER *. 

LABEL *. YES 
ROUTINE .* 

.COMPLETE .* 



»*«»K3**»**»* 
RESET ♦ 
SWITCH AT 
LOC IOCCSWT1 
FOR NO USER 
LABELS • 
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Chart KY. $$BCMT05: Close Standard, Nonstandard, and Unlabeled Files, All Types 
Except Workfiles (Section 1 of 2) 



IOCCBKSP 
*KZ * 



IOCCEFSW 

*****C1******* 

* POST FILE 

* CLOSED TO 

* THE DTF 

* TABLE 



«***A2********* 

$$BCMT05 

ENTERED FROM 

CLOSE MONITOR 



TRANSENT 

*****B2********* 

* RELOCATE 

* CCW AND CCB 

* ADDRESSES IN 

* THE TRANSIENT 

* AREA 



SET MODE AND 

MOVE UNIT 

NUMBER INTO 

CCB 



.* TLBL « 






* MOVE DTF 


* FILEID 




YES 


* FILENAME 


ZERO OR 






..X* INTO TLBL 


*. BLANK 


.* 




* FILEID 


















♦ NC 






'. 








• 


X 
















B4 ♦ . 






»»*-** B 5 ***** * 


.* IS * 






* MAKE TLBL 


* TLBL 




YES 


* GENERATION 


GENERATION 






..X* NUMBER 


*. NUMBER 






* C0O1 


♦ . BLANK. ♦ 
















*N0 






I 


*x... 








X 
















C4 ♦ . 






****»C5****** 


.♦ IS * 






* MAKE TLBL 


* TLBL 




YES 


* VERSION 


VERSION 






..X* NUMBER 


♦ . NUMEER 






01 


*.ELANK.* 






* 



* FILE *. 

POSTED OPEN .* 
*. IN DTF .* 



.* //TPLAB *. N 
.CARD READ BY .*. 
♦.JOB CON- .* 
*.TR0L .* 



RESET 

BLOCK COUNT 

TO ZERO 



«*»F 1******* 

TURN OFF 

FIRST TIME 

SWITCH IN 

DTF 



FILE *. NC 

AN INPUT .*... 

. FILE .* 



* TLBL *. YES 
EXPIRATION .*.... 

*. DATE .* 
*. BLANK.* 



YES .* NORWD 
...*. SPECIFIED 
*. IN DTF . 







IOCCREfcX .*. 






.*. 




H2 *. 






H3 *. 




.*REWIND *. 






.* STC *. 




YES .*AND UNLOAD 




NC 


.* LAEELS *. 








*** 


... 








*. IN DTF . 


*. IN CTF .* 






















X 








*NC 




♦KZ * 

* Bl* 


*YES 










IOCCLBST X 


X 


IOCCRWTP X 








****J !***«*** **** 


****«*J2******< 






J3 *. 


IOCOIORT LD 


IOCOIORT 


LD 














.* TLBL *. 


REWIND AND 


REWIND TAPE 






*. INFCRNATICN . 


* UNLOAD « 


* TO LOAD- 






*. IN CTF .* 


TAPE 


POINT 
















• 








*YES 
















X 


























* 1 * 
















*«***K3********* 










* UPCATE TLBL 
♦CARD IMAGE WITH 

♦ INFC STCREC IN 












♦ CTF TABLE 



***G4******* 

MOVE 'EOF1' 

TO LABEL 

OUTPUT 

AREA 



**#»*H4********* 

* MOVE TLAB 

* INFORMATION 

* TO LABEL 

* OUTPUT AREA 
♦FOR EOF1 LABEL 



****D5******** 

MOVE TODAY'S 

DATE TO TLBL 

CREATION 

DATE 



**E5******* 

SET 

RETENTION 

PERIOD 

TO ZERO 



IOCCOUTF X 


X 
NOTBLANK .*. 






F4 *. 




* MOVE WRITE * 


.* TLBL *. 


* ADD RETENTION 


* TAPEMARK * 


.♦EXPIRATION *. NO 


♦ PERIOD TO 


* COMMAND CODE * 


♦. DATE .* 


...X* TODAY'S DATE 


* TO CCW * 


♦.ABSOLUTE .♦ 


* TO CALCULATE 


* * 


♦ . .* 


♦EXPIRATION DATE 



X 


♦ J5 




*J4«*««*«**»* 


FILE SERIAL, 




MOVE ♦ 


VOL SEQUENCE, 


AND 


LOCK COLNT ♦ 


FILE SEQUENCE 


NUMBERS 


TO LABEL * 






OUTPUT ♦ 






AREA * 
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Chart KZ. $$BCMT05: Close Standard, Nonstandard, and Unlabeled Files, All Types 
Except Workfiles (Section 2 of 2) 



IOCCLBST .*. 

El *. 
.< NON- *. 
.* STD. «. NO 

*. LABELS SPECI-.*... 
*. FIEC IN .* 
*. DTF .* 

*«YES 



LABACCR 
SPECIFIED 
. IN DTF . 



SAVE 

F-CHARACTER 

AS INDICATOR 

TO USER 



LOAD REG 14 
WITH ADDRESS 

OF USER END 

OF FILE RTN, 

EOFACDR 



*SAVE DTF TABLE 

* AND USER 
» LABEL RTN 

* ADDRESSES 



**G1*****»* 

* EXIT TO « 

* USER LABEL * 
* RTN (LABACDR) 
VIA SVC 8 RETN* 

* VIA SVC 9 * 



WRITE 

TAPE 

LAEEL 



C3 *. 

.* USER *. 

* LABELS * 

TO BE 
*. WRITTEN .* 



.* LAST -». 
.*USEP LAEEL *. NO 
WRITTEN .*... 
*. «D5 .* 



IOCCWRIT 

*«****E-*«* 
IOCOIORT 



IOCCEOVT 

****.*F3*«* 
IOCOIORT 



NOPWD 
SPECIFIED 
. IN DTF . 



IOCCREWX«KY 



*»H1******* 

RESTORE 
DTF TABLE 
AND USER 
LABEL RTN 
ADDRESSES 



IOCCBKSP X 
*««***H3**« 
IOCOIORT 



**«*.D4*******»* 
« GET ADDRESS 

* OF USER LABEL 
.X* RTN (LABADDR) 

* AND SAVE F 
« IND FOR USER 



*SAVE DTF TABLE 

* AND USER 

* LABEL RTN 

* ADDRESSES 



•«F4**«**«» 

* EXIT TO * 
* USER LABEL » 

* RTN (LABADDR) 
VIA SVC 8 RETN* 

* VIA SVC S * 



**G4*****»» 
RESTORE 
DTF TABLE 
AND USER 
LABEL RTN 
ADDRESSES 



* COBOL 

INDICATOR 
*.ON IN DTF. 



*D5 
SWITCH SET 
TO A NOP AT 
CHART 
LOCATION J5. 



*H5 
LBRET1 MACRO SIGNALS 
THAT USER IS FINISHED 
PROCESSING LABELS - 
LBRET2 INDICATES THAT 
THE USER INTENDS TO 
PROCESS MORE LABELS. 



J4 *. 

.* USER *. 

LABEL 

ROUTINE 

.COMPLETE . 

». »F5 .« 

*«NO 



NOP BRANCH * 
INSTRUCTION 
AT LOCATION 
IOCCSWT1 
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Chart LA. $$BCMT06: Close Tape Workfiles 



$$BCMT06 
ENTERED FROM 
CLOSE MONITOR 



RELOCATE 

CCW AND CCB 

ADDRESSES 

IN TRANSIENT 

AREA 



MOVE 

UNIT NUMBER 

INTO CCB 



.* WAS 
LAST 
COMMAND 
. WRITE 



YES .* NORWD 
...*. SPECIFIED 

*. IN DTF . 



.*REWIND *. 
.*AND UNLOAD *. NO 
*. SPECIFIED .*... 
*. IN DTF .* 



REWIND 

«***»*H4 ********** 
IOCOIORT LD 



REWIND AND 

UNLOAD 

TAPE 



* ZERO BLOCK 

* COUNT 

* IN DTF 
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Chart LB. $$BCMT07: Alternate Switching for System Units (Section 1 of 2) 



****A1********* 
$$BCMT07 * 
*A2 * 
* 
*************** 



*****B1 ********** 

* RELOCATE * 

* ADDRESS * 

* CONSTANTS IN * 

* CCB AND CCWS * 

* * 
***************** 



*A2 
ENTERED FROM EOF/ECV 
MONITOR $$BCE0V1 AND 
FROM DIMOD FOR A PUT. 



*****01********** 

* * 

* NOP CCW * 

* COMMAND * 

* CODE * 

* * 
***************** 



************* 



***D2********* 
SVC 11 * 
RETURN TO * 
PROB. PROG. * 
************** 



.* NO REWIND *. YES 
.SPECIFIED IN .*... 
*. JBCSW2 .* 



******B3********* 

IOCOIORT LD 

*_*_*-*-*-*-*_*_ 

WRITE A 

* TAPEMARK * 

************* 



C3 *. 
.* UNIT *. 
EXCEPTION 
BIT ON IN 

CCB 
*.(E0V).* 



*YES 



* RESTORE * 

* SAVED * 

* LUB POINTER * 

* * 
***************** 



* GET ADDRESS * 
*OF PUB ASSIGNED* 
TO THIS LUB * 



***** El ********** 

* MOVE * 

* UNIT NUMBER * 

* INTO CCB * 



.* VALID *. NO 
LOGICAL .*... 
*. UNIT .* 



NORETURN 

******D3*********** 

IOCOIORT LD 



************* 



NOREWUN 

******E3*********** 

MSGWRITE LD 

*_*_*_*_*_*_*_*_* 

WRITE 

* MESSAGE * 

41221 

************* 



******** 



*****D 5 ********** 

* * 

* SAVE * 

* MODE BYTE * 

* FROM PUB * 

* * 
***************** 



E5 *. 

.* ANY *. 

.* JIB'S * 

. CHAINED FOR 

♦.THIS LUB 



.* 



RETURN ADDRESS 
DETERMINED BY 
CPERATOR RESPONSE 
-SEE DECISION 
BLOCK FOLLOWING 
A MESSAGE BLOCK. 



***** 
*LC * 
* C5* 



MSG83I 

*****G2********** 

* INITIALIZE * 

* TO PRINT * 
..X* MESSAGE * 

* 41831 * 

***************** 



****H2********* 

* SVC 2 * 

* FETCH * 

* $$BOMTOW * 
*************** 



.*. 




RETURNED 


Jl *. 




*****J2******* 


.* IS * 




* 


TURN OF 


.* ENTRY 


*. YES 


* 


MSG WRITER 


. FROM A MSG 


.*. ... 


...X* 


BIT IN BYTE 


*. WRITER 


* 




89 OF CGMM 


*. .* 






REGION 


*. .* 




************** 



**F3******* 

* * 

SVC 22 

SEIZE 

SYSTEM 



*****G3 ********** 

* CALCULATE * 

* LUB * 

* ADDRESS * 

* * 
***************** 



*****H 3 ********** 

* * 

* SAVE * 

* PUB AND LUB * 

* POINTERS * 

* * 
***************** 



**** 

* * 

* 2 * 



**** 

* * 

* i * 

* * 
**** 



****K2********# 

* RETURN TO * 

* ADDRESS IN * 

* REG 14 *K3 * 
*************** 



*K3 
RETURN ADDRESS 
DETERMINED BY 
OPERATOR. 
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Chart LC. $$BCMT07: Alternate Switching for System Units (Section 2 of 2) 



***** 

*LB * 
* E5* 



* GET ADDRESS * 

* OF NEXT JIB * 

* IN CHAIN * 

* * 
***************** 



.*. 

Bl *. 

.♦STORED *. 

.* ALTERNATE *. 

*PUB ASSIGNMENT. 

*. IN NEXT .♦ 

*. JIB .* 

*. .* 

*N0 



*****B2*** ******* 

* MOVE ALTERNATE * 
PUB POINTER * 

UP IN * 

* CHAIN * 

* * 
***************** 



.X* 



.* ALTERNATE *. YES 
. PUB SAME AS .*.... 
♦.ORIGINAL .* 



♦GET POINTER TO * 

* NEXT JIB IN * 

* CHAIN * 

* * 
***************** 



.* ANY MORE *. 

♦.JIB'S CHAINED. 

♦. TO THIS .♦ 

♦. LUE .* 



♦STORE STANDARD 
♦PUB ASSIGNMENT 

♦ IN END OF JIB 

♦ CHAIN 
**************** 



NO .* SYSPCH 

,..*. EQUALS 

*. SYSLST 



*_*_*_*_*_*_*_*_* 

* GET ADDRESS * 

* OF ALTERNATE ♦ 

* PUB ♦ 
***************** 



. . .*. 


ALTERNATE .* 


* 


DEVICE .* 




*»DOWN .♦ 


X 


*. .* 


***** 


♦ NO 


NXTALT*LB * 




* B5* 




* * 




* 




MDRSBY 


X 


*****E4********** 



*****Q 2 ********** 

* MOVE SYSPCH * 

* JIB POINTER * 
-X* INTO LUB FOR * 

* SYSLST * 



************* 



= *** 



*****H2********** 

* MOVE SYSLST * 

* JIB POINTER * 
X* INTO LUB FOR ♦ 

* SYSPCH * 

* * 
***************** 



.X.X. 



**** 

* * 

* 2 * 

* * 
**** 



* SET MODE BYTE ♦ 

♦ IN ALTERNATE * 

♦ WITH SAVED * 

* MODE BYTE * 
***************** 



**F4******* 



SVC 22 

RELEASE 

SYSTEM 



****G4********* 

♦ SVC 2 ♦ 
♦FETCH $$BJCOPT ♦ 

* *H4 ♦ 
*************** 



♦ H4 
$$BJCGPT OPENS 
THE ALTERNATE 
ASSIGNMENT. 



NOALT X 

*****C5******* 

♦ TURN ON ♦ 

♦ MSG. WRITER ♦ 
*BIT IN BYTE 89 

* OF COMM. ♦ 

* REGION ♦ 
************** 



**05******* 



SVC 22 

RELEASE 

SYSTEM 

* * 

*********** 



* INITIALIZE TO * 

* WRITE MESSAGE ♦ 

* 4121A ♦ 

* * 
***************** 



* PUT ♦ 

♦ UNIT NUMBER * 

♦ INTO MESSAGE * 

* * 
***************** 



****G5********* 

♦ SVC 2 * 

♦ FETCH * 

♦ $$BMSGWR * 
*************** 
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Chart LD. Tape Open/Close Subroutines 



**A3****** 
READ 



****A5****** 
« IOCCREWR 



RESET ENTIRE 
I/O AREA 
TO BLANKS 



MOVE PROPER 

READ TAPE 

COMMAND CODE 

TO TAPECCW2 



LOAD REG 1 
WITH ADDRESS 
OF TYPECCW4- 



LOAD REG 1 

WITH ADDRESS 

OF TYPECCW1 



MODIFY CCW 
ADDRESS 
IN CCB 



**D1****** 
WRITETAP 



****F1****** 
* SKIPFWD 



*G1 
THE COMMAND CODE 
FOR THE DESIRED 
OPERATION IS 
INSERTED INTO THE 
CCW BEFORE THE 
SUBROUTINE IS 
ENTERED. 



***D2******** 

MOVE PROPER 

WRITE TAPE 

COMMAND 

CODE TO 

TAPECCW2 



*****E2********* 
*MOVE BACKSPACE 

* COMMAND CODE 

* INTO THE 

* CCW 



****F2******** 

MOVE SPACE 

FORWARD 

COMMAND CODE 

INTO THE 

CCW 



MOVE REWIND- 
UNLOAD 
COMMAND CODE 
INTO THE CCW 



REWIND- 
UNLOAD 
.SPECIFIED. 



***D5******** 

MOVE REWIND 

COMMAND 

CODE 

INTO THE 

CCW 



**F 5****** 
GETPUB 



*G3**»*»* 
EXECUTE 
CHANNEL 
PROGRAM 
(SVC 0) 



GET PUB 
POINTER 
FROM LUB 



***H1****** 
MSGWRITE 



*****J1 ********** 
♦LOAD REG 1 WITH* 

* ADDR OF NAME * 

* OF MSG WRITER * 

* PHASE TO BE * 
•FETCHED *H2* 



* SVC 2 FETCH 
•PROPER MESSAGE 

* WRITER PHASE 



$$B0MT02 
$$BOMT03 
$$B0MT04 
$$BCMT05 
$$BCMT06 



$$B0MT05 
$$BCMT01 
$$BCMT02 
$$BCMT03 
$$BCMT07 



IS 
I/O 

.COMPLETE 



RETURN TO 
CALLING 
ROUTINE 



MULTIPLY PUB 

POINTER BY 8, 

THE LENGTH OF 

A PUB ENTRY 



»***J5********* 
ADD PRODUCT 
TO STARTING 
ADDRESS OF 
THE PUB TABLE 



****K5******* 
RETURN TO 
CALLING 
ROUTINE 
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Chart LE. $$BOMT0M and $$BOMT0W: Tape Open Message Writers 



#****B1 ********* 
•SAVE REGISTERS 

* AND RELOCATE 

* CCB AND CCW 

* ADDRESSES IN 

* TRANSIENT 



* NOP LABEL CCW 
*(TAPECCW1) AND 

* REMOVE REPLY 

* CCW FROM 

* CHAIN 



*GET FILE NAME, * 

* SYMBOLIC UNIT * 

* AND * 

* PHYSICAL UNIT * 



GET PRINTER 

TO PROPER 

MESSAGE FROM 

REG 



INITIALIZE 

TO PRINT 

PROPER FIELD 

OF TAPE 

LABEL 



Gl " *. 

.* LABEL *. 

•INFORMATION* 

TO BE 
*. PRINTED .* 



PRINT MESSAGE 

*(NO RESPONSE * 

NEEDED) 



.* OPERATOR 

*. HIT CANCEL 

*. KEY 



CANCEL 
OR NO 
1052 



X 


ABORTJOB 


*E1********** 


X 




****E2* ******* 


MOVE * 


* CANCEL 


MESSAGE * 


* FETCH $$BCNCL 


TO OUTPUT * 


* (SVC 6) 


AREA * 


************** 



.* IS *. 

.* RESPONSE *. NO 
.VOLUME SERIAL.*... 
*. NUMBER .* 



.* RESPONSE *. YES 
•IGNORE, BYPASS,*.... 
*NEWTAP, OR.* 
*. RETRY.* 



IS THIS 

RESPONSE 
. VALID 



IS THE 
RESPONSE 
. VALID 



X 


NOTLEGAL X 


3********»* 






•NOP LABEL CCW, 


BUILD * 


« (TAPECCW1) 


VOL1 * 


* AND MODIFY 


LABEL * 


•DATA LENGTH IN 




* TAPECCW2 



NOP WRITE 

LABEL AND 

WRITE BLANKS 

CCW'S 



.* IS *. 

* MESSAGE ». YES 
INFORMATION ...... 

*. TYPE .* 



DETERMINE 

CALLING PHASE 

AND RETURN 

POINT 



*****J3******* 

* TURN ON * 

* RETURN FROM * 
*MESSAGE WRITER 

* SWITCH IN * 

* COMM REGION* 



****H4****«**» 

MOVE INVALID 

RESPONSE 

MESSAGE TO 

THE OUTPUT 

AREA 



****K3****»**«» 

SVC 2 

FETCH CALLING 

PHASE 
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Chart LF. $$BMSGWR: Tape Open/Close Message Writer 



***»B1********* 

SAVE 

REGISTERS 

AND RELOCATE 

CCWS AND CCBS 



.* LABEL *. 
YES .*INFORMATION* 
...*. TO BE 

*. PRINTED .* 



****B2******** 

NOP WRITE 

LABEL AND 

WRITE BLANKS 

CCW" S 



X 


INITIATE X 


*»ci********** 


**#**C2****** 


INSERT * 




CHANNEL AND * 


* SET EOB 


UNIT INTO * 


* INDICATOR 


MESSAGE * 


* TO HEX '00 



GET POINTER 

TO PROPER 

MESSAGE 

FROM REG 



*INSERT SYMBOLIC* 

* UNIT NAME ♦ 

* IN MESSAGE * 



.* MESSAGE ». YES 
. INFORMATION .*... 
* . TY P E . * 



YES .» RESPONSE * 
....*IGNORE, RETRY, 
*. EOV, OR .* 
*. EOF .* 



NOANSWER X 
*****#D3*» 
WRITE 



IS THIS 

RESPONSE 
. LEGAL 



»***G1********* 

CONVERT 

SYMBOLIC UNIT 

NUMBER AND 

PUT IT IN 

MESSAGE 



MODIFY REPLY 

CCW COMMAND 

CODE TO 

TEST I/O 



DETERMINE 

NAME OF 

CALLING PHASE 



* TURN ON * 

* RETURN FROM * 
♦MESSAGE WRITER 

* INDICATOR IN » 

* COM. REGION* 



»***G4********* 

RETURN TO 

CALLING PHASE 

(SVC 2) 



***E5******* 

MODIFY 

TYPECCW3 

TO WRITE 

ONLY 22 

CHARACTERS 



MOVE INVALID 

RESPONSE 

MESSAGE TO 

THE OUTPUT 

AREA 



* MOVE MESSAGE 

* TO THE OUTPUT 

* AREA 



.* DTF * 

.* FILENAME 
TO BE 
*. PRINTED 



****K1********* 

INSERT 

FILENAME FROM 

DTF INTO 

MESSAGE 



*»**H 2* ********** 


H3 *. 


WRITE LD 






.* OPERATOR 


PRINT MESSAGE 


*. HIT CANCEL 


*(N0 RESPONSE * 


*. KEY 


NEEDED) 


*. . * 



DOUBLMSG X 

*»»**H5******* 

* MOVE FIRST 

* PART OF 

* MESSAGE TO 

* THE OUTPUT 

* AREA 



.* bUB, *. 

*. NO 1052, .* 

#.0R CANCEL.* 



SET EOB 

INDICATOR 

TO HEX'OO' 



****K 2* ******** 

CANCEL 

FETCH $$BCNCL 

(SVC 6) 



* TURN OFF * 
•DOUBLE MESSAGE 

* INDICATOR * 
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• Chart MA. CPMOD: GET Macro, 2 I/O Areas 



«.*A2******* 

ENTRY FROM 

GET MACRO 

EXPANSION 



»*A5****»* 
IJJCP2I0 



SAVE 

REGISTERS 

2 THROUGH 6 



LOAD 

ADDRESS OF 

CCW 



FIRST TIME 



J.JJCP2I0 _M 

* READ RECORD 



.* TWO *. 
.* I/O AREAS 
. SPECIFIED 
*. IN DTF . 



****C3**«***»* 

EXCHANGE 

ADDRESSES OF 

I0AREA1 AND 

I0AREA2 



READ RECORD 



RESTORE 

REGISTERS 

2 THROUGH 6 



IJJEXEC 

»*»**F3***»**»** 

* LOAD USER'S 

* IOREG WITH 

* ADDRESS OF 
*NEXT AVAILABLE 

* I/O AREA 



.» UPPER * 
•RECORD LIMIT 
*. REACHED .* 



* UPPER 

HEAD LIMIT 
*. REACHED . 



SET HH 

TO LOWER 

LIMIT 



ADD 1 TO CC 
IN SEEK 
ADDRESS 



****«G1********* 

* ADD 1 

* TO RECORD 

* NUMBER IN 
"SEARCH ADDRESS 



SET INDICATOR* 
FOR NOT FIRST 
PASS * 



PUT RECORD 
NUMBER IN NEW 
SEEK ADDRESS 



**H3»**»»*» 

RETURN TO 
PROBLEM 
PROGRAM 



.•H5****** 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



»****J2*»**«*»»»* 

*LOAD ADDRESS OF* 
♦USER'S EOF RTN * 

* IN RETURN REG * 

* AND RESTORE * 

* REGS 2-6 * 



RETURN TO 
CALLING 
ROUTINE 



».*K2******* 

EXIT TO 

USER'S EOF 

ROUTINE 
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• Chart MB, CPMOD: GET Macro, 1 I/O Area 



ENTRY FROM 
GET MACRO 
EXPANSION 



SAVE 

REGISTERS 

2 THROUGH 6 



LOAD 
ACDRESS 
OF CCW 



* UPPER * 

RECORD 

LIMIT 

REACHED 



COMPARE 

SEEK ADDRESS 

WITH UPPER 

LIMIT 



* UPPER 

SEEK LIMIT 
*. REACHED . 



SET HEAD 

TO LOWER 

LIMIT 



ADD 1 

TO CC IN 

SEEK 

ACDRESS 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



ADD 1 

TO RECORD 

COUNT 



LOAD ADDRESS 

OF USER'S EOF 

ROUTINE INTO 

RETURN 

REGISTER 



RESTORE 

REGISTERS 

2 THROUGH 6 



RETURN TO 
PROBLEM 
PROGRAM 



EXIT TO 

USER'S EOF 

ROUTINE 
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• Chart MC. CPMOD: GET Macro, IOPTR=YES 



ENTRY FROM 
GET MACRO 
EXPANSION 



.«*B2******»* 

SAVE 

REGISTERS 

2 THROUGH 6 

AND LOAD 
CCW ADDRESS 



* LOAD ADDRESS 

* OF I/O AREA 
*FROM REGISTER 
» INTO CCW 



IS 
DEVICE A 
. DISK 



* UPPER * 

RECORD 

LIMIT 

REACHED 



COMPARE 

SEEK ADDRESS 

WITH UPPER 

LIMIT 



* UPPER 

SEEK LIMIT 
*. REACHED . 



SET HEAD 

TO LOWER 

LIMIT 



ADD 1 

TO CC IN 

SEEK 

ADDRESS 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



ADD 1 

TO RECORD 

COUNT 



IS 
DEVICE A 
. DISK 



LOAD ADDRESS 

OF USER'S EOF 

ROUTINE INTO 

RETURN 

REGISTER 



*H3 
LOGICAL 

DECISION 



Hk *. 

EOF 



RESTORE 

REGISTERS 

2 THROUGH 6 



RETURN TO 
PROBLEM 
PROGRAM 



EXIT TO 

USER'S EOF 

ROUTINE 
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Chart MD. CPMOD: PUT Macro, 2 I/O Areas (Section 1 of 3) 



*A1 

ENTERED FROM 
A PUT MACRO 
EXPANSION OR 
FROM SD WORK 
FILE CLOSE. 



*«A2***** 
ENTRY 
*A1 



** Bl ********* * 

STORE * 

REGISTERS *X 

2 THROUGH 6 * 



WRITE 

FILE 

MARK 



RESTORE 

REGISTERS 

2 THROUGH 6 



***E1******** 

RETURN TO 

SD WORKFILE 

CLOSE 



YES .* ENTRY 

*. FROM SD 

*. CLOSE 



STORE 

REGI STERS 

2 THROUGH 6 



ROUTINE RE-ENTERED 
AT THIS POINT FROM 
$$BCMT07 IF A UNIT 
EXCEPTION OCCURS 
WHILE WRITING A 
TAPEMARK. 



LOAD 
ADDRESS 
OF CCW 



ARE THERE 

2 I/O 

. AREAS . 



**»»C4******** 

EXCHANGE 

ADDRESSES OF 

I0AREA1 

AND 
I0AREA2 



X 

X 
IJJRTRN .*. 

E4 *. 

.* IS *. 

.* DEVICE 
*. A PUNCH OR 
*. PRINTER . 



**»E5******** 

SUBTRACT 1 

FROM IOAREA 

ADDRESS FOR 

CONTROL 

CHARACTER 



IJJCPSLO 

****«F2******* 
*IJWCHED 



* RESTORE 

* REGISTERS 

* 2 THROUGH 6 



YES .* IS *. 

X...*. DEVICE A 

*. PRINTER .* 



*LOAD ADDRESS OF* 

* NEXT IOAREA * 

* INTO USER'S * 

* IOREG * 



**H4******* 

SET 

INDICATOR 

FOR NOT 

FIRST 

PASS 



* SYSPCH *. YES 

OR SYSLST .* 

*. ON TAPE .* 



EXIT TO 

USER'S EOF 

ROUTINE 



RETURN TO 
PROBLEM 
PROGRAM 



#**»K3********* 

* SVC 2 
♦FETCH $$BCMT07 

* *B3 
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Chart ME. CPMOD: PUT Macro, 2 I/O Areas (Section 2 of 3) 



**»A2****** 
IJJCPIO 



»»«*A5********* 

* FETCH PUNCH 
•X*ERROR RECOVERY 

* RTN. $$BERRTN 



IJJSAVE 

»*#**B4* ******** 

* SAVE CCW 

* COMMAND CODES 

* AND CARD 

* IMAGE 

* *B5 



IJJCPCAL 

SVC 
* EXECUTE 
CHANNEL 
* PROGRAM 



INCLUDED ONLY 
IF RETRY=YES 
IS SPECIFIED IN 
THE CPMOD MACRO. 



TURN OFF 

PUNCH EJECT 

SWITCH 






*H2* 



*INSERT CONTROL 

* CHARACTER 

* IN CCW 

* COMMAND 

* CODE 



»F4****** 

SVC 

PRINT 

RECORD 



RETURN TO 
CALLING 
ROUTINE 



2520 *. NO 
OR 2540 .*... 
PUNCH .* 
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Chart MF. CPMOD: PUT Macro, 2 I/O Areas (Section 3 of 3) 



IJJCPDSK 



.* UPPER ». 
* RECORD *. NO 

LIMIT .*. .. 
*. REACHED .* 



* COMPARE SEEK 

* ADDRESS WITH 

* UPPER LIMIT 



NO .* UPPER 
...*. SEEK LIMIT 
*. REACHED . 



SET HEAD 

TO LOWER 

LIMIT 



ADD 1 TO 

CC IN SEEK 

ADDRESS 



YES .* UPPER * 

*. EXTENT LIMIT 

*. EXCEEDED .* 



IJJCAL2 * 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



»**»A5****** 
IJJWCHED 



IJJWCHED .*. 



RETURN TO 
CALLING 
ROUTINE 



* *H 2* »**#**«** 



SVC 2 FETCH 
$$BERRTN TO 
CANCEL *J1 



$$BERRTN FETCHES 
$$BOMSGl TO PRINT 
ERROR MESSAGE 
48871 AND CANCEL. 



* C4* 

IJ JCPCAL 
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• Chart MG. CPMOD: PUT Macro, 1 I/O Area (Section 1 of 2) 



ENTERED FROM A PUT 
MACRO EXPANSION OR 
FROM AN SD WORKFILE 
CLOSE. 



RESTORE 

REGISTERS 

2 THROUGH 6 



SAVE * 
REGISTERS »X.. 
2 THROUGH 6 • 


.•ENTERED*. 
YES .* FROM SD 

«. WORKFILE 

». CLOSE . 

*»N0 


X 

IJJCPDSK fH 

WRITE 
* FILE * 

MARK 


IJJCPGP X 

»«»**C2******* 

» SAVE 

* REGISTtRS 

» 2 THROUGH 6 



LOAD 
ADDRESS 
OF CCW 



TURN OFF 

PUNCH EJECT 

SWITCH 



IJJMOV X 

•INSERT CONTROL 

* CHARACTER IN 

* CCW COMMAND 

* CODE 



MOVE PRINT 

COMMAND TO 

CCW 



IJJPWT X 
IJJCAL2 

PRINT 



»C4 
ROU1 INE IS RE- 
ENTERED FROM 
$$6CMT07 IF A 
UNIT EXCEPTION 
OCCURS WHILE 
WRITING A TAPEMARK. 



IJJUNITX . •. 



05 
.* ON *. 
YES .» SYSPCH * 

*.0R SYSLST ON 

*. TAPE .* 



*«*F.1**«*»*»* 

RETURN TO 

SD WORKFILE 

CLOSE 



.* DTF ». 
NO .» GENERATED 

*. FOR DISK = 

YES 



ADJUST CCW 
ADDRESS FOR 
DISK = YES 





I JJCPIC 


G2* "*. 




DISK .* 


DEVICE *. TAPE 




. . . *. 


TYPE .» X 




». 


*. . » ** 




X 








•PUNCH OR 


JJCPDSK 


«MH * 


.PRINTER 




• B2» 
















* 








IJJCPLUP X 






•H2»********* 












GET * 






CONTROL * 




* 


CHAR 


\CTER » 



IJJSAVE 

»*»»»H3» 
» SAVE 

* COMMAN 

* AND 



»»»»J1»»»«»»*#»*» 

IJJCAL2 

SKIP X.. 
• PRINTER * 


IJJCFOND .». 
J2 

YES .*" SKIP *». 
*. COMMAND .» 

~*N0 
X ". 


IJJCPCAL X 

IJJCAL2 MH 

OUTPUT 
• RECORD » 



INCLUDED ONLY 
IF RETRY=YES I 
SPECIFIED IN T 
CPMOD MACRO. 



» FETCH PUNCH 
•ERROR RECOVERY 
» RTN $$BERRTN 



**«*F5*««»»**«* 

LOAD ADDRESS 

OF USER'S EOF 

ROUTINE INTO 

THE RETURN 

REGISTER 



RESTORE 
REGISTERS 
THROUGH 6 



»»H5****»*» 

SET 

INDICATOR 

FOR NOT 

FIRST 

PASS 



EXIT TO 

USER'S EOF 

ROUTINE" 



RETURN TO 
PROBLEM 
PROGRAM 
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Chart MH. CPMOD: PUT Macro, 1 I/O Area (Section 2 of 2) 



***A2****** 
IJJCPDSK 



«A4****** 
IJJCAL2 



JJCPDSK .*. 




bz *. 




* UPPFR *. 




RECORD 




LIMIT 


* 


REACHED . 



COMPARE SEEK 
ADDRESS WITH 
UPPER LIMIT 



NO .* UPPER 
, ..*. SEEK LIMIT 
*. REACHED . 



SET HEAD 

TO LOWER 

LIMIT 



***F2********* 

ADD 1 TO 

CC IN SEEK 

ADDRESS 



YES .* UPPER * 

*. EXTENT LIMIT 

«. EXCEEDED .* 



IJJCAL2 

*#****B4* 

SVC 
* EXECUTE 
CHANNEL 
* PROGRAM 



#*D4*»***»* 

RETURN TO 

CALLING 

ROUTINE 



SVC 2 FETCH * 
$$BERRTN TO * 
CANCEL *J1 * 



SSBERRTN FETCHES 
$$BOMSGl TO PRINT 
ERROR MESSAGE 
4887 I AND CANCEL. 



ENTERED 

FROM SD 

CLOSE 
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• Chart MJ. CPMOD: PUT Macro, IOPTR=YES (Section 1 of 2) 



ENTERED FROM A PUT 
MACRO EXPANSION OR 
FROM AN SD WORKFILE 
CLOSE. 



• » E N T E R E D * 
FROM SD 
WORKF ILE 
. CLOSt 



"SAVE REGISTERS 
» 2 THROUGH 6 
* AND LOAD 
« CCW ADDRESS 



NO . * PUNCH * 
...*. EJECT SWITCH 
». ON .* 



TURN OFF 

PUNCH EJECT 

SWITCH 



*»»D1********** D2 *. 

.* DTF *. 
ADJUST CCW * VFS .» GENERATFD 

ADDRESS FOR *X *. FOR DISK = 

DISK -YES * *. YES 

*»NC 

'. x! 

x 

E2**"». 
.* IS *. 
NO .* DEVICE 
*. A TAPE OR 

*. DISK 

**YES 






"INSERT CONTROL 

* CHARACTER IN 

* CCW COMMAND 

* CODE 



SUBTRACT 1 
FROM I/O AREA 
ADDR IN REG 

FOR CONTROL 
CHARACTER 



F2 
.» IS IT *. 

SYSPCH OR 
SYSLST ON 
. OUTPUT 
*.TAPE .» 

" * N C 



* INSERT I/O 

* AREA ADDRESS 
*FRUM REGISTER 

* INTO CCW 



I JJCPDSK»MK 



MOVE PRINT 

COMMAND TO 

CCW 



I JJCAL2 

PRINT 



SAVE CCW 

COMMAND CODES 

AND CARD 

IMAGE 



IJJCPCAL 

IJJCAL? 



IJJCFOND .*. 
*»«**K 1****»»**»*» K2 *. 

IJJCAL2 MK .* » 

»_._»_»_»_,_*_»_* YFS .* SKIP 
SKIP PRINTER X *. COMMAND 

"ft.NC 



ROUTINE IS RE- 
ENTERED FROM 
$$BCMT0 7 IF A 
UNIT EXCEPTION 
OCCURS WHILE 
WRITING A 
TAPEMARK. 



YES .» SYSPCH * 

».OR SYSLST ON 

«. TAPE .* 



INCLUDED ONLY 
IF RETRY=YES IS 
SPECIFIED IN THE 
CPMOD MACRO. 



* FETCH PUNCH 
»FRROR RECOVERY 

* RTN $$BERRTN 



* LOAD ADDRESS 

* OF USER'S EOF 

* ROUTINE INTO 

* THE RETURN 

* REGISTER 



RESTORE 
REGISTERS 
THROUGH 6 



TEX IT TO 

USER'S EOF 

ROUTINE 



INDICATOR 

FOR NOT 

FIRST 

PASS 



DID 

EOF 

OCCUR 

. »HH .» 



* RETURN*TO * * 
•PROBLEM PROGRAM* 
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Chart MK. CPMOD: PUT Macro, IOPTR=YES (Section 2 of 2) 



IJJCPDSK 



SAVE 

REGISTERS 

2 THROUGH 6 



WRITE 
FILE 

MARK 



RESTORE 

REGISTERS 

2 THROUGH 6 



RETURN TO 

SD WORKFILE 

CLOSE 



* UPPER *. 
RECORD *. 

LIMIT 
REACHED .* 



COMPARE SEEK 
ADDRESS WITH 
UPPER LIMIT 



* UPPER 

SEEK LIMIT 
*. REACHED . 



SET HEAD 

TO LOWER 

LIMIT 



ADD 1 TO 

CC IN SEEK 

ADDRESS 



YES .* UPPER * 
*. EXTENT LIMIT 

*. EXCEEDED .* 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



IJJWCHED .*. 



****D4**«»*»* 
RETURN TO 
CALLING 
ROUTINE 



* SVC 2 FETCH 
» $$BERRTN TO 

* CANCEL *J2 



*J2 

$$BERRTN FETCHES 
$$BOMSGl TO 
PRINT ERROR 
MESSAGE 48871 
AND CANCEL . 



ENTERED 

FROM SD 

CLOSE 
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• Chart NA. 



DIMOD: 



GET Macro, 1 I/O Area (Section 1 of 2) 



ENTRY FROM 
GET MACRO 
EXPANSION 



SAVE 

USER'S 

REGISTERS 



*****B4***»*»*«* 

* ADD 1 TO 

* RECORD 

» NUMBER IN 
•SEARCH ADDRESS 



STORE 
ADDRESS OF 

CCW IN 
REGISTER 6 



.* UNIT *. 

EXCEPTION 

BIT ON IN 

CCB 



ADD DTF 
BYTES 74-75 
TO ADDRESS 

OF CCW 



.A4 
YES .» 



.* CCHHR *. NO 
«. RECORD LIMIT .*... 
«. REACHED .* 



UPDATE 
CCHHR 
SEEK 

ADDRESS 



IJJG3XXX 

SVC 
* READ 



IJJJ1XXX 

»»***D4*»****»* 

* LOAD REG 14 

* WITH ADDRESS 

* OF EOF 

* ROUTINE 

* FROM DTF 



RESTORE 

USER'S 

REGISTERS 



**«»H4»«**»«* 
SET 
FIRST PASS 
INDICATOR IN 

"- TO 1 



»H5 



»#«J4*»***«* 

RETURN TO 

ADDRESS IN 

REGISTER 14 
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Chart NB. DIMOD: GET Macro, 1 I/O Area (Section 2 of 2) 



»A1 

DTFDI MACRO 
PARAMETER 
OPTION - DECISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
L ISTING. 



♦SET FIRST PASS* 
* INDICATOR 

TO * 



ERROPT 

= ADDRESS 

• Al 



STORE 

REGISTER 1 

(RETURN 

ADDRESS) 



***«D2»»»**«»« 

LOAD REG 14 

WITH ADDRESS 

OF USER'S 

WLR ROUTINE 



STORE 

REGISTER 14 

(RETURN 

ACCRESS) 



*»»»D3«»**»*«* 

LOAD REG 14 

WITH ADDRESS 

OF USER'S 

ERROR 

ROUTINE 



ERROPT = '.» 


IGNORE 


""•OMITTED 


X 

»NA * 
» G4* 




I JJJ8XXX 


X 

«D4»»»**»*»» 
SVC 50 ♦ 
CANCEL * 





SAVE 
REGISTERS 
, 1, AND 15 



♦LOAD REGISTER 1* 

* WITH ADDRESS * 

* OF I/O AREA * 



RESTORE 

USER'S 

REGISTERS 



»«*»«H3»*»*»*»»» 
» ERANCH TO 
♦USER'S ROUTINE, 
» EXECUTE, 

» AND RETURN 



RESTORE 

REGISTERS 

0, 1, AND 15 



* RESTORE 
» RETURN 

* ADDRESS 
♦TO REGISTER 14 
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• Chart NC. DIMOD: GET Macro, 2 I/O Areas (Section 1 of 2) 



»»«A2««»*»«* 

ENTRY FROM 

GET MACRO 

EXPANSION 



SAVE 

USER'S 

REGISTERS 



NO .* IS DEVICE 
...*. DISK 
*. »C1 



ADD 1 TO 

RECORD NUMBER 

IN SEARCH 

ADDRESS 



*C1 

DIMOD MACRO 

PARAMETER 

OPTION - DECISION 

DOES NOT APPEAR IN 

AN ASSEMBLY LISTING. 



STORE ADCRESS 

OF CCW IN 

REGISTER 6 



ADD DTF BYTFS 

7U-75 TO CCW 

ADDRESS 



*FIRST PASS 
INDICATOR 

».SET TO 1 . 
*. *E1 .« 



READ 

A 

RECORD 



.* UNIT *. 
EXCEPTION 
BIT ON IN 



*LOAD REG WITH* 
»ADDRESS OF EOF * 
» ROUTINE FROM * 
* OTF * 



* A?* 
IJJK5XXX 



RESTORE 

USER'S 

REGISTERS 



* EXECUTE LOAD » 


YES .* 


READ 


» IOREG INSTR * 




ERROR 


» IN DTF TABLE * 














X 








*NO 




*ND * 






* A3* 








X 










IJJK6XXX 


*ND * 


JJL5XXX X 




* 05* 


»****G4********** 












» LOAC REG U * 




I JJJ&XXX 


» WITH ADDRESS * 






* IN RFG * 







*SET FIRST PASS* 

* INDICATOR 

* TO * 



RETURN TO 
ADDRESS IN 
REGISTER 14 
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Chart ND. DIMOD: GET Macro, 2 I/O Areas (Section 2 of 2) 



TURN ON 
FIRST PASS 

INDICATOR 



* TURN ON 

* FIRST PASS 

* INDICATOR 



* LOAD REG 14 

* WITH ADDRESS 

* OF USER'S WLR 

* ROUTINE 



.* CCHHR * 
.RECORD LIMIT 
*. REACHED .* 



*H1****** 

SVC 

EXECUTE 

CHANNEL 

PROGRAM 



SAVE 

REGISTERS 

0,1, AND 15 



* LOAD REG 1 * 
*WITH ADDRESS OF* 

* CURRENT * 

* I/O AREA * 



RESTORE 

USER'S 

REGISTER 



Hnnm-#H3******** 

* BRANCH TO 

* USER'S RTN. , 

* EXECUTE, AND 

* RETURN 



STORE * 


SKIP 

X 

«NC * 
* C2* 


* 


ERROPT= '.* 
**OMITTED 


IGNORE 










X 

*»»D3********** 

LOAD REG 14 * 

WITH ADDRESS * 

OF USER'S * 

ERROR ROUTINE * 


X 
««**D4********* 

* SVC 50 * 

* CANCEL » 




IJJJ8XXX 

D5 

.**ARE 
*. 2 1/ 



ARE THERE ». NO 



EXCHANGE 

ADDRESSES OF 

THE TWO I/O 

AREAS 



SAVE RETURN 

ADDR. FROM 

REG 14 IN 

REG 



STORE ADDR ON 

NEXT I/O AREA 

IN REG 14 



***K1******* 

RETURN 

TO CALLING 

ROUTINE 



RESTORE 

REGISTERS 

0,1, AND 15 



*RESTORE RETURN 

* ADDRESS TO 

* REG 14 



*NC * 
* E4* 

IJJF5XXX 
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Chart NE. DIMOD: PUT Macro, 1 I/O Area (Section 1 of 3) 



ENTRY FROM 
PUT MACRO 
EXPASION 



* SAVE 
♦ADDRESS OF CCW 

* IN REGISTER 6 



RESET CONTROL 

CHARACTER 

INDICATOR TO 

X'OO' 



♦ CONVERT ASA 

♦ CONTROL CODE 

* TO S/360 

* CONTROL CODE 



SAVE 

ADDRESS OF 

DTF TABLE 



**C5***»«* 

SVC 2 

FETCH 

$$8ERRTN 



♦ ADD DTF BYTES 

* 74-7 5 TO 
♦ADDRESS OF CCW 



.* ♦ . RDR OR 
DISK .* DEVICE *. TAPE 
...*. TYPE IS ...... 



* Al* 
IJJF9XXX 



TURN OFF 

EJECT NEEDED 

BIT IN DTF 



* CONTROL * 
CODE A SKIP 

♦ . COMMAND .» 



* MOVE X«0B» TO 

* CCW COMMAND 

* CODE 



RESTORE 

ADDRESS OF 

DTF TABLE 



♦MODIFY COMMAND 
♦CODES IN ERROR 
♦ CCW'S 



•••••F5*****»*«* 

♦ MOVE 

♦ PREVIOUS CARD 
♦IMAGE TO BYTES 
♦168-245 OF THE 

♦ DTF 



JJG8XXX X 




X 


*»«*#G4****^*^ 




••***G5******** 








♦ MODIFY 

♦ CONTROL CODE 

♦ FOR PUNCH 


• 


♦ SAVE CURRENT 

♦ CARD IMAGE IN 

♦ BYTES 73-152 

♦ IN DTF 






*«*«*********♦♦ 






X 


X 
H4* *♦. 




♦ NF ♦ 

♦ Al* 








.♦ IS DEVICE ♦ 
♦.A 2540 PUNCH 


. NO 


IJJF9XXX 
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• Chart NF. DIMOD: PUT Macro, 1 I/O Area (Section 2 of 3) 



IJJF9XXX X 
•**««*A1»*» 
IJJG3XXX 



CI *. 

.* S/360 *. 

CONTROL 

CHARACTER 



MOVE PRINT 

COMMAND 

X'Ol' INTO 

CCW 



X 
IJJIOXXX .*. 

Fl *. 
. * UNIT *. 
.* EXCEPTION *. YES 

*. BIT ON IN .* 

*. CCB .* 



SAVE 

ADDRESS 

OF DTF TABLE 



#*»*D2*«***»«*» 

STORE 

LOGICAL UNIT 

AND CLASS 
IN REGISTER 



»*E2*»»«*» 

SVC 2 

FETCH 

$$BCMT07 



»F2»*»*»* 

RESTORE 

ADDRESS 

OF DTF 

TABLE 



.* IS 

. DEVICE A 
». PRINTER 



.•SYSLST ». 

OR SYSPCH 
ON OUTPUT 
. TAPE 



»*»**C3*«*»****» 

* LOAD REG \k 

* WITH ADDRESS 
*OF EOF ROUTINE 
« FROM DTF 



IJJF8XXX X 

*»*##A5*»*«***» 

* GET RECORD 

* NUMBER 

* FROM 

» COUNT FIELD 



.» CCHHR ». NO 
.RECORD LIMIT .»... 
». REACHED .» 



RESTORE 

USER'S 

REGISTERS 



SET 

FIRST PASS 

INDICATOR 



PHASE $$BERRTN IS 
FETCHED TO PRINT MSG 
48871 AND CANCEL JOB 
IF UPPER EXTENT IS 
EXCEEDED. 



UPDATE 
CCHHR 
SEEK 

ADDRESS 



YES .* UPPER 
...*. EXTENT 
*. EXCEEDED 



»»E5*»***# 

STORE 

RECORD 

NUMBER 

IN COUNT 

FIELD 



RESTORE TO 
ADDRESS IN 
REGISTER ]k 



*#G4*****» 
IJJG3XXX 



SVC 
EXECUTE 
CHANNEL 
PROGRAM 



RETURN TO 
CALLING 
ROUTINE 
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Chart NG. DIMOD: PUT Macro, 1 I/O Area (Section 3 of 3) 





»NF * 
» Gl» 


»NF * 
• Hl« 




* 


* 


Al 

DTFDI MACRO 

PARAMETER 

OPTION - DECISION 

DOES NOT APPEAR 

IN AN ASSEMBLY 

LISTING. 


IJJK5XXX X 

»**»*A2**«»«** 

* SET FIRST PASS* 

* INDICATOR * 

* TO * 


X 

•SET FIRST PASS 

* INDICATOR 

* TO 




X 

B2***». 

NO .** WLRERR *•. 
...». = ADDRESS .* 
». *A1 .» 


X 
B3* "*. 

.** ERROPT ** 

*. = ADDRESS 



* LOAD REG }h » 
•WITH ADDRESS OF* 
» USER'S WLR * 

* ROUTINE * 



* LOAC REG 14 * 
•WITH ADDRESS OF* 

* USER'S ERROR * 

* ROUTINE * 



SAVE 

REGISTERS 
, 1, AND 15 



LOAD REG 1 

WITH ADDRESS 

OF I/O AREA 



RESTORE 

USER'S 

REGISTERS 



EXECUTE 

USER'S 

ROUTINE 



* RESTORE 

* REGISTERS 
» 0, 1, AND 15 



* RESTORE » 
•RETURN ADDRESS » 
•TO REGISTER 1U • 



ERROPT = ». OMITTED 
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• Chart NH. DIMOD: PUT Macro, 2 I/O Areas (Section 1 of 3) 



* ADC DTF BYTES * 

* 74-75 TO *X 
•ADDRESS OF CCVv * 



ENTRY FROM 
PUT MACRO 
EXPASION 





X 




IJJE5XXX .«. 


***»E 1»«»*»»»«««» 


E2 ». 


IJJE6XXX NJ 






NO .* FIRST « 


X. . 


»PASS INDICATOR 


* WRITE A * 


• .SET TO 1 .* 


RECORD 


*. *F1 .* 



*F 1 
0=FIRST PASS 
l=NOT FIRST PASS 



TEST FOR 

I/O 
COMPLETE 



YES .* IS » 
X..». DEVICE A 

». PRINTER .» 



.•SYSLST *. 
OR SYSPCh 
ON OUTPUT 

. TAPE 



* STORE LOGICAL 
•UNIT AND CLASS 

* IN REGISTER 



SVC 2 

FFTCH 

$$BCMT07 



RESTORE 

ADDRESS OF 

DTF TABLE 



•LOAD REG WITH* 
•ADDRESS OF EOF • 
• RTN FROM DTF • 



«*«»»A5«***«**** 

• SAVE RETURN 
» ADDR IN REG 
» AND LOAD ADDR 
» ON NEXT I/O 
•AREA IN REG 14 



.» IS DEVICE • 
». A PRINTER OR 
*. PUNCH .» 



» SUBTRACT 

* FROM I/O Al 
•ADDR IN REG 
» TO POINT 

• CONTROL CH 



• EXECUTE LOAD 

* IOREG INSTR 
•IN DTF TO LOAD 
» ADDR TO NEXT 

« IOAREA 



IJJJ6XXX X 

****»F5«»»«»*»»» 

• EXECUTE LOAD 
« IOREG INSTR 
•IN DTF TO LOAD 

• ADDR OF ALTRN 

• IOAREA 



NO .» UNIT ». 

...•.EXCEPTION BIT. 

•-ON IN CCB.» 



• A5* 
IJJK6XXX 



* EXCHANGE THE • 
» ADDRESSES OF » 
•THE 2 I/O AREAS» 






LOAD REG 14 

WITH RETURN 

ADDRESS FROM 

RFGISTER 



» SET FIRST » 
•PASS INDICATOR 
» TO • 



RETURN TO 
ADDRESS IN 
REGISTER 14 
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• Chart NJ. DIMOD: PUT Macro, 2 I/O Areas (Section 2 of 3) 



NO .♦ CCHHR « 
...». RECORD LIMIT 
*. REACHED .* 



UPDATE 
CCHHR 
SEEK 

ADDRESS 



IJJE6XXX .». 

B2 ». RDR 
,* ». OR 
DISK .» DEVICE *. TAPE 
*. TYPE IS .* 



A5 *. 
.* IS * 
NO .* DEVICE 
*. A 2 540 

*. PUNCH 

"*YES 

x'. 

X 

14»»*«**» B5* **. 

SVC 7 » NO .«" I/O 
WAIT *X *. COMPLETE 



UPPER « 
XTENT 
CEEDED .* 



*«»D2**»««** 

TURN OFF 

EJECT 

NEEDED BIT 

IN DTF 






STORE 

RECORD 

NUMBER IN 

COUNT FIELD 



TEST FOR 

I/O 
COMPLETE 



#»F2*««*»»* 

RESET 

CONTROL 

CHARACTER 

INDICATOR 

70 X'00» 



«».G1»**»»««*»* G2 *. 

CONVERT ASA » .» ». 

TO S/360 » YES .* CONTROL * 

CONTROL *X *. CODE A SKIP 

CHARACTER * ». COMMAND .* 

CODE * *. .» 

*»NO 

'. xl 

X 

»*»H1»*»**»»»*# H2* **. 

MOVE X'08' * .» *. 

TO CCW * YES .* CONTROL » 

COMMAND *X *. CODE A SKIP 

CODE » ». COMMAND .« 



IJJF9XXX X 

#».»**C3***««* 
SVC 
« EXECUTE 
CHANNEL 
* PROGRAM 



IS « 
DEVICE 
A PRINTER.* 



.* S/360 ». 

CONTROL *. YES 
CHARACTER .*..X. 



TEST FOR 
I/O 

COMPLETE 



«**G3#*»»*»* 
MOVE PRINT 

COMMAND 

X'01' INTO 

CCW 



SPACE 

ONE 
LINE 



$$BERRTN PRINTS MSG 
48871 AND CANCELS 
THE JOB IF UPPER 
LIMIT IS EXCEEDED. 



IJJH5XXX X 

*#.*»D5*»*»*» 

* SAVE 

* ADDRESS 

* OF DTF 

* TABLE 



*»E5***»«* 

SVC 2 

FETCH 

$$BERRTN 



RESTORE 

ADDRESS 

OF DTF 

TABLE 






IJJ1+4XXX X 

*»«»*G5»*»»»* 

* MODIFY 

* COMMAND 

* CODES IN 

* ERROR CCW' 



MOVE ERROR 

CARD IMAGE 

TO DTF BYTES 

168-245 



RETURN TO 
CALLING 
ROUTINE 



**»*J5**»*»*»* 
MOVE CURRENT 

CARD IMAGE 

TO DTF BYTES 

73-152 



**K2»»»»*» 

MODIFY 

CONTROL 

CODE FOR 

PUNCH 
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•Chart NK. DIMOD: PUT Macro, 2 I/O Areas (Section 3 of 3) 



»*Al»***«* 
IJJG3XXX 



SVC 

EXECUTE 
CHANNEL 
PROGRAM 



RETURN TO 
CALL ING 
ROUTINE 



SET 

FIRST PASS 

INDICATOR 

TO 



WLRERR 

= ADDRESS 

»G3 



STORE 

REGISTER 14 

(RETURN 

ADDRESS) 



LOAD REG 14 

WITH ADDRESS 

OF USER'S 

WLR ROUTINE 



IJJK6XXX X 

»»#»«A5»*»»»«* 

* SET 

* FIRST PASS 
» INDICATOR 
» TO 



STORE 

REGISTER 14 

(RETURN 

ADDRESS) 



**»»D5««»»*»»» 

LOAD REG 14 

WITH ADDRESS 

OF USER'S 

ERROR 

ROUTINE 



OMITTED .» ERROPT 



* G3» 
IJJJ8XXX 



SAVE 

REGISTERS 

0, 1 AND 15 



»*».*F5«**»»»»»»» 
•LOAD REGISTER 1* 

* WITH ADDRESS * 

* OF CURRENT * 

* I/O AREA » 



*G3 
DTFDI MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



RESTORE 

USER'S 

REGISTERS 



#.»»»H5»**»***»* 

* BRANCH TO 
•USER'S ROUTINE, 

* EXECUTE, 

* AND RETURN 



RESTORE 
REGISTERS 
, 1, AND 15 



• RESTORE 

• RETURN 

• ADDRESS 
•TO REGISTER 14 
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• Chart PA. $$BERRTN: Punch Error Recovery Routine 



ENTERED FROK 

AN OUTPUT CPMOD, 

AN OUTPUT OIMOD. 



SVC 7 

WAIT FOR 

CHANNEL END 



231 1 

OR 23 
DISK 



**»*C3***»**»* 

INITIALIZE 

TO FETCH 

MESSAGE 

WRITER PHASE 

SSBO^SGl 



GET ADDR OF 

ERROR CCW FOR 

SAVE AREA 1 



GET ADDR OF 

ERROR CCW FOR 

SAVE AREA 2 



STORE 
CCW ADDR 

in cce 



SVC 
PUNCH 
CARD 



ET UP FOR 

MESSAGE 

48881 



SVC 2 

FETCH 

$$ROMSGl 



* SVC 7 

* rtAIT FOR 

* DEVICE END 



RETRYVSG 

#*«*«*K2***«* 

SVC 

» ISSUE 

RETRY 

» MSG 

40091 



SET UP FOR 

MESSAGE 

48871 



**F4*****«* 

* SVC 7 

WAIT 

FOR DEVICE 

END 



STORE CCW 

ADDR IN 

CCB 



SVC 
PUNCH 
CARD 



»*H5***»»* 

RESTORE 

ORIGINAL 

CCW ADDR 

IN CCB 



*J5****» 
SVC 1 1 

RETURN 
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Chart QA. $$BOCP01: Open Device Independent Files, Phase 1 (Section 1 of 3) 



##A1********* 
OPEN * 
CTFCP OR * 
DTFCI * 
****** * ***** * 



*****B1********** 

* * 

* GET ADOR OF * 
♦COMMUNICATIONS * 

* REGION * 



.* DISK * 
.* RESIDENT 
*. SYSTEM 
*. TABLE 



*****Q1********** 

* GET THE * 

* PUB FOR THE * 

* LOGICAL * 

* UNIT * 



********** 



.* DTFCP *. 

TABLE *. NO 
GENERATED .*... 
.FOR DISK=.* 



*****A 4* ********* 

* ADJUST * 

* BYTE * 
X* 75 FOR * 

* NON-DISK * 
♦DEVICE (X'OO") * 
***************** 



$$BOCP02 IS CALLED 
FOR TAPE RESIDENT 
SYSTEM TYPE DTFCP 
TABLES THAT ARE 
GENERATED FOR DCS 
IF THE DISK= 
PARAMETER IS OMITTED. 



****C2********* 

* SVC 2 *B2 

* CALL 

* $$BOCP02 
*************** 



*****C4********** 

* * 

* SET UP * 

* CCW FOR * 

* WRITE * 

***************** 



* SET UP * 

* CCW FOR * 

* READ * 

* * 
***************** 



CKRST 

*****Q3 

MOVE X'FO 



****** 



******** 



GET ERROR 

MESSAGE 
•48831 • 



****P2********* 

* SVC 2 * 

* CALL $$BOMSGl * 

* * 
*************** 



*****H1********** 

* * 

* COMPUTE * 

* PUB ENTRY * 

* ADDRESS * 



Jl *. 
* IS 
DEVICE 
A DASD 
DEVICE 



***H2******* 

SET READER 

INDICATOR 

(X«02«) 

IN BYTE 42 

OF THE DTF 

************ 



* INTO BYTE 43 * 

* OF DTF ( INC. * 

* OTHER THAN * 

* DISK OR TAPE) * 
***************** 



YES .* DEVICE 
...*. A 

*. READER 



****E5********* 
SET READER- 
PUNCH 
INDICATOR 
(X«30') IN 
SWITCH (CHK) 
*************** 



INDPCH 

*****P4********** 

* SET PUNCH * 

* INDICATOR * 
...X*(X'04' ) IN DTF * 

* (BYTE 42) * 



*************** 



* 2 * 
**** 
P2540 



DEVICE 
A READER- 
PUNCH 



***** j 3 ********** 

* SET EJECT * 

* INDICATOR * 

* (X'40') * 

* IN DTF * 

* (BYTE 44) * 
***************** 



IS 

DEVICE 
. 2520 



INDPCH1 X 

*****J4******** 

* SET CONTROL 

* CODE FOR 1442 

* (X«80') 

* IN DTF 

* (BYTE 40) 
*************** 



.* DTF * 
.* INDICATE 
.X*. SYSPCH 
♦.ASSIGNED 



.* DTFCP *. 
* GENERATED *. YES 

FOR DISK = .*..X 
*. YES .* 



*****J5********** 

* ALLOW EQUIP * 

* CHK FOR PUNCH * 

* DEVICES—SET * 

* NON-DISK DEV. * 

* IND IN DTF * 
***************** 



* A4* 
* * 

INDISC 



*K5 
DTFCP MACRO 
PARAMETER 
OPTION. 



Charts 239 



Chart QB. $$BOCP01: Open Device Independent Files, Phase 1 (Section 2 of 3) 



.* DTFCP *. 

GENERATED 

FOR DISK= 

YES 



DECREMENT 

RECORD COUNT 

BY ONE (CCW 

AT BYTE 112 

OF DTF) 



INDISC X 

*****A4********* 

* INDICATE DISK 

* (X'20' IN DTF 

* BYTE 42 AND 

* X' F3' IN DTF 

* BYTE 43) 



*****B1 ********** 

* DECREMENT * 

* RECORD COUNT, * 

* INCREMENT I/O * 
*AREA ADDR (EACH* 

* BY ONE) * 



*****B2********* 

* INCREMENT 

* I/O AREA 
•ADDRESS BY ONE 

* (CCW AT BYTE 

* 112 OF DTF) 



INDICATE 

VERSION 2 

(X«08') IN 

DTF BYTE 21 



****C1******* 

INCREMENT 

ALTERNATE 

I/O AREA 

ADDRESS BY 

ONE 



SEE BLOCK 



INIT14 

*****C5****** 

* INDICATE 

* 2314 ( X'Ol • 
...X* IN DTF 

* BYTE 29 



.* RDR- *. 


*D2 


.* PUNCH *. 


DTFCP MACRO 


.•.SWITCH (CHK) .* 


PARAMETER 


*. ON .* 


OPTION. 


*. *C2 .* 








*YES 





El *. 

.* DTFCP *. 

GENERATED 

FOR DISK= 

YES 
*. *D2 .* 

NO 



SAVSYS 

*****F1********** 

* MODIFY NON- * 
*DISK CCW (BYTE * 

* 48 OF DTF) TO * 
♦ALLOW EJECT AND* 

* SUP. I/O TR. * 



TURN OFF 
READER-PUNCH 
SWITCH (CHK) 






LOAD USER'S 

IOREG WITH 

IOAREA ADDR. 



IS 

DEVICE 
A 2311 



INDICATE 

2311 (X'OO') 

IN DTF 

BYTE 29 



***D5******** 

CALCULATE 

NUMBER OF 

RECORDS PER 

TRACK FOR 

2314 



****F2********* 

MODIFY CCW 

( BYTE 112 OF 

DTF) TO ALLOW 

EJECT AND 
SUP. I/O TR. 



INDICATE 
DTFSD OPEN 
(X'20») IN 
DTF BYTE 20 



SYSO. 
NO .* 



ADD 1 

TO NUMBER 

OF RECORDS 

PER TRACK 



*****G5»******* 

* INSERT 

* NUMBER OF 

* RECORDS PER 

* TRACK IN 

* DTF BYTE 72 



* INDICATE 
•OUTPUT (X'20«) 

* IN DTF 

* BYTE 75 



STKON 

*****H4********* 

* INDICATE 

* INPUT IX' 18* ) 

* IN DTF 

* BYTE 75 



ANOTHER 
DTF TO BE 
. OPENED . 



SVC 11 

TO PROBLEM 

PROGRAM 



LOAD USER'S 
IOREG W ITH 
IOAREA ADDR 



SVC 2 

FETCH 

$$BOPEN 
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Chart QC. $$BOCP01: Open Device Independent Files, Phase 1 (Section 3 of 3) 



LDIOREG 



* INDICATE * 
"PRINTER (X'08' )* 

* IN DTF * 

* ( BYTE 42 ) * 



CI *. 
.* IS *. 

NO .* DEVICE 
, .. *. A 1403 WITH 

*. ucs 



SET TAPE 
INDICATORS 
(X« 10,X'F1' ) 
IN DTF (BYTES 
42 AND 43) 



.* DTF *. 
.* INDICATE *. YES 
*SYSLST, SYSPCH.* 



»***D4*******»* 

INDICATE 

SYSLST-SYSPCH 

(X'02') IN 

DTF BYTE 44 



SVC 

SET 
MODE 



INITIALIZE 

TAPE BRANCH 

REGI STER 



LOAD USER'S 
IOREG WITH 
IOAREA ADDR. 



MOVE I/O 

ADDRESS TO 

REGISTER 

SAVE AREA 



* DEVICE 

A PRINTER 
*.0R PUNCH . 



GET POINTER 

TO CONTROL 

CHARACTER 



* Al* 
UNTRCP 



MGTPOP 


. ». 




G3 *. 




* FILE 


YES .* 


OPENED 




BY JOB 


*. 


CONTROL 



DTFCP MACRO 

PARAMETER 

OPTION 



EXEC .*. 

G5 ». 

.* DTFCP *. 

YES .* GENERATED 

...*. FOR DISK= 

*. YES 

*. *G4 .» 

NO 



GET I/O 

REGISTER 

NUMBER 



INWKFL X 

* SET TAPE OPEN 

* INDICATOR 

* (X'OO') IN 

» DTF (BYTE 21) 



**K3****** 

SVC 2 

CALL 

$$B0CPT1 



****J4******»»* 

SET TAPE 

OUTPUT IND. 

(X'08') IN 

DTF (BYTE 21) 



***»K4****** 
SVC 2 
CALL 
$$B0CPT2 



****J5»******* 

STORE IOAREA 

ADDRESS IN 

SAVE AREA 

FOR USER'S 

IOREG 



RETURN 

TO CALLING 

ROUTINE 
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Chart QD. $$BOCP0 2: Open Device Independent Files, Phase 2 (Section 1 of 3) 



*A1***»* 

OPEN 
DTFCP 



**B1******* 
RELOCATE 
CCB'S AND 
CCW'S IN 
TRANSIENT 
AREAS 



CI *. 


*****C2****** 


ENTER *. 




FROM *. YES 


* TURN OFF 


MESSAGE .* 


...X* MESSAGE 


RTN .* 


* INDICATOR 



***D1******** 

GET THE 

PUB FOR THE 

LOGICAL 
UNIT USING 
SYS IP MACRO 



**B4******* 
SET EJECT 
INDICATOR 

(X'80« ) 

IN DTF 
(BYTE 21) 



INDICATE 
READER-PUNCH 

(X'30') IN 
SWITCH (CHK) 



INDICATE PUNCH 
*(X'08' ) IN DTF 
* (BYTE 21) 



INDICATE 

PUNCH (X'08«) 

IN DTF 

BYTE 21 



IS 

DEVICE 
A 2520 



El *. 












E4 *. 


*****E5********* 














* INDICATE 


DEVICE *. NO 










.** IS "*. YES 


* 2520 (X'04') 


ASSIGNED .*... 










*. DEVICF .* 


..X* IN DTF 




*. A 2 52 .* 


* (BYTE 31) 
























*QE * 






*YES 








* B2* 


*N0 
» 3 *..! 












X 






Ix 


X 










x 


. *. 








ERROR X 


INDPCH1 X 


P2540 .*. 


Fl ♦. 








*****F3********** 


*****P4 ********** 


F5 *. 










* INITIALIZE * 




.*SYSPCH *. 


*DEVICE ***. YES 








* TO PRINT * 


* INDICATE 1442 * 


NO .* ASSIGNED *. 


IGNORED .*... 








* MESSAGE * 


* (X'08') IN * 


...*. TO A 










* 48831 * 


* DTF (BYTE 21) * 


*. 2540 .* 






























*N0 




* 1 * 








*YES 






















**** 






*GE 


-D1,H1* *..l 








... .X I 








* * * .X..... 














X 


SETSW 


X 




CALLMSG1 




UNTRCP X 


X 


*G1********** 


**»**G2*******- 11 




X 


*****G4********** 






* 


INDICATE 


» 


»#**G3*****»*** 




* INDICATE 2540 


COMPUTE * 




READER 




* SVC 2 * 


* SUBTRACT ONE * 


* ( X'20' ) IN 


PUB ENTRY * 




(X'02') IN 




* FETCH * 


* FROM RECORD * 


* DTF (BYTE 31) 


ADDRESS * 




DTF BYTE 21 




* $$B0MSG1 * 


* COUNT IN CCW * 


*ALLOW EQUIPMENT 














* CHECKS 














X 




; 






X 
PPRT .*. 




Hi" **. 










H4 *. 


*****H 5*** ****** 












.* RDR- *. 


* SET UP CCW 


IS *. YES 










.* PUNCH SW. *. YES 


* TO EJECT 


DEVICE .*... 




• 






*. ( CHK) ON .* 


...X* 1ST CARD, AND 


A READER .* 




* TO SUPPRESS 


*. .* 




. 








*. .* 


* I/O TRANSFER 



UNTRC X 

*****J4**» »«*«*** 
*LDIOREG QF* 

* INITIALIZE * 

* USER I/O * 

* REGISTER * 



DEVICE 
A READER- 
. PUNCH 



* J3* 
CHKMOR 
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Chart QE. $$BOCP02: Open Device Independent Files, Phase 2 (Section 2 of 3) 



.* JOB * 

CONTROL 
OPEN THE 
. FILE 



* INDICATE * 
*PRINTER (X«04« )* 

* IN DTF * 

* (BYTE 21 ) * 



.* IS *. 

DEVICE A 

1403 WITH 

UCS 



INITIALIZE 
TO SET UCS 

MODE 



SVC 
SET 

MODE 



**-»C2******** 

INDICATE 

TAPE (X'Ol) 

IN DTF 

(BYTE 21) 



.* DTF *. 

.* INDICATE *. NO 
•SYSLST,SYSPCH.*..X 



***»F2********* 

SET SYSLST- 

SYSPCH 

INDICATOR 

<X'02' JIN DTF 

(BYTE 44) ' 






INITIALIZE 

TAPE BRANCH 

REGI STER 



SVC 

SENSE 

COMMAND 



GET ERROR 

MESSAGE, 

'4884D' 



INWKFL X 

* INDICATE 

* TAPE (X'10') 

* IN DTF 

» (BYTE 20) 



HI *. 






* 


****H2****»**** 


I/O 

COMPLETE 


*" 


YES 


* 


.DIOREG QF 

LOAD USER'S 

IOREG WITH 

IOAREA ADDR. 






X 






*N0 




*QD * 
* G4* 




X 


X 




UNTRCP 




* 1 * 


#J1******< 


\ 






**#*** 


SVC 7 
WAIT 




* 







SVC 2 

CALL 

$$B0MSG1 



ANOTHER "*. 


VES 






* INDICATE * 

* OPEN OUTPUT * 

* IX'08 1 ) IN » 


OPENED .* 
**N0 




RETMON 

) 
***»K4*i 

* SVC 

* FE1 

* $$B( 


< 

. 2 * 

rcH * 

DPEN * 


* DTF B^ 

CAL0PN1 

* SVC 

* FET 

* $$B0^ 


fJE 21 * 


X 
*K3********* 
SVC 11 * 

PROBLEM * 
PROGRAM * 


< 

! 2 * *** 

rcH * 

4T06 * 



Charts 2U3 



Chart QF. $$BOCP02: Open Device Independent Files, Phase 2 (Section 3 of 3) 



LDIOREG 



.* IS DEVICE *. YES 

*.A PRINTER OR .* 

*. PUNCH .* 



»**E4**«***** 

SUBTRACT 1 

FROM IOAREA 

ADDRESS FOR 

CONTROL 

CHARACTER 



STORE I/O 

AREA ADDRESS 

IN SAVE AREA 

FOR USER'S 

IOREG 



RETURN 

TO CALLING 

ROUTINE 
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Chart QG. $$B0CP11: Open DTFCP (Version 1 Only), Phase 1 (Section 1 of 3) 



»A1******* 

OPEN 
DTFCP 



*A2 
$$B0CP12 IS CALLf-D 
FOR TAPE RESIDENT 
SYSTEM TYPE DTFCP 
TABLES THAT ARE 
GENERATED FOR 
DOS WHEN THE 
DISK= PARAMETER 
IS OMITTED 



.* PUB 
ES .* DEVICE 
..*.CODE = X'6 
«. (2311) 



*A4 

DTFCP MACRO 

PARAMETER 

OPTION. 



RELOCATE 

CCW'S GET 

ADDRESS OF 

COMMUNICAT ION 

REGION 



.* ENTERED *. YES 

*.FROM MESSAGE .* 

*. ROUTINE .* 



TURN OFF * 

MSG I NO. 
IN BYTE 89 OF* 
COMM. REGION* 



B3 *. 
.* DTFCP *. 

.* GENERATED 
. FOR DISK = 
YES 
*. *A4 .* 

**NO 



****»B4»********* 

* ADJUST BYTE * 

* 75 FOR NON- * 

* DISK DEVICE * 

* (X'OO') * 



SET UP 

CCW FOR 

READ 



SVC 2 
CALL 
$$BOCP12 



CKRST 

*****E3********* 

* MOVE X'FO' 

* INTO BYTE 43 

* OF DTF (IND. 

* OTHER THAN 
*DISK OR TAPE. ) 



SET UP 

CCW FOR 

WRITE 



FIND PUB FOR 

LOGICAL UNIT 

USING SYSIB 



.*PUB DEVICE 
•CODE = X'lO' 
*. (RDR) 



INDICATE 

PUNCH (X'04') 

IN DTF 

(BYTE 42) 



'. ERROR X 


*****G2****** 




* GET ERROR 

* MESSAGE 

* '48831' 




************* 


**#* 








*QJ *.. 

* K4* 








CALLMSG1 

> 


( 


****H?*****« 


* SVL 

* CAL 

* $$B3!^ 


2 
L 
SGI 



*INDICATE READER* 
*(X' 02' ) IN DTF * 
* (BYTE 42 ) * 



COMPUTE 

PUB ENTRY 

ADDRESS 



.* PUB * 

* DEVICE 

C OD E = X ' 2 ' 
*. (PNCH) 



H3 



PUB 

NO .* DEVICE 
...♦.CODE = X'3 
*. (RDR- 
*.PNCH). 



PCH42 X 

*»***K3********** 
*SET EJECT IND. * 
* ( X'40' ) IN DTF * 
*(BYTE 44) , SET * 
*RDR-PNCH SWITCH* 
* (CHK) ON. * 



INDICATE PUNCH 
MX' 04') IN DTF 
* (BYTE 42) 



.* DEVICE 

*.CODE = X'2 

*. (1442) 



.* DEVICE 

•.CODE = X'31' 

*. (2520) 



SET UP TO 
ALLOW 
EJECT 



SET CONTROL 

CODE FOR 1442 

(X'80' ) IN DTF 

(BYTE 40) 
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Chart QH. $$B0CP11: Open DTFCP (Version 1 Only) , Phase 1 (Section 2 of 3) 



QG-H4, J4 




QJ-B4 






*A2 




THIS IS THE 




NON-DISK CCW 




LOCATED AT 




BYTE 48 OF 




THE DTF. 



.* DTFCP *. 

.* GENERATED 
*. FOR DISK = 
*. YES 



» DECREMENT 
* RCD. CNT., 
•INCR. I/O AREA 
•ADDR. (EACH BY 
» ONE) *A2 



*»**B2******** 
SUBTRACT ONE 
FROM RECORD 
COUNT (CCW 
AT BYTE 112 
OF THE DTF) 



PPRT X 

****»C 2* ********* 

* ADD ONE TO * 

* I/O ADDRESS * 

* (CCW AT BYTE * 
•112 OF THE DTF)* 



*****B4********* 

* INDICATE DISK 
*(X'20' ) IN DTF 

* (BYTE 42) AND 

* X" F3' IN BYTE 

* 43 OF DTF 



#***»C4********** 

* INDICATE 2311 * 
*(X'02' ) IN BYTE* 

* 59 OF THE * 

* COMMUNICATION * 

* REGION * 



INCREMENT 

ALTERNATE I/O 

AREA ADDRESS 

BY ONE 



.* RDR- *. 
NO .* PUNCH * 
...*. SWITCH (CHK) 
*. ON *E2 .* 



.* DTFCP *. 
* GENERATED 

FOR DISK = 
*. YES 



SAVSYS X 

* MODIFY NON- * 
♦DISK CCW (BYTE * 

* 48 OF DTF) TO * 
*ALLOW EJECT AND* 

* SUP. I/O TR. * 



SEE QG-K3 



*SET DTFSD OPEN * 

* INDICATOR * 

* (X«20') * 

* IN DTF * 

* (BYTE 20) * 



***«G 2* ******** 

MODIFY CCW 
(BYTE 112 OF 
DTF) TO ALLOW 

EJECT AND 
SUP. I/O TR. 



**G4******* 

SET INPUT 

INDICATOR 

(X' 18' ) 

IN DTF 

(BYTE 75) 



»**G5******* 

SET OUTPUT 

INDICATOR 

( X'20' ) 

IN DTF 

(BYTE 75) 



TURN OFF 

RDR-PUNCH 

SWITCH (CHK) 

*E2 



UNTRC 

****»J1*» 
*LDIOREG 



LOAD USER'S 

IOREG WITH 

IOAREA ADDR. 



LOAD USER'S 

IOREG WITH 

IOAREA ADDR. 



ANOTHER 

DTF TO 

OPEN 



SVC 11 

TO PROBLEM 

PROGRAM 



«K4****** 

SVC 2 

FETCH 

SSBOPEN 
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Chart QJ. $$B0CP11: Open DTFCP (Version 1 Only), Phase 1 (Section 3 of 3) 



**A1****»* 
LDIOREG 



CI ». 

INPUT 



MOVE I/O 

ADDRESS TO 

REGISTER 

SAVE AREA 



El *. 
.* DTF *. 

* INDICATE 

PRINTER OR 
». PUNCH . 



GET POINTER 

TO CONTROL 

CHARACTER 



EXEC 



Gl 



, DTFCH *. 
YES .* GENERATED 
...*. FOR 

*. DISK= . 
*. YES .* 

"*NO 



GET I/O 
REGISTER 

NUMBER 



STORE I/O 

AREA ADDRESS 

IN SAVE AREA 

FOR USER'S 

IOREG 



RETURN TO 
CALLING 
ROUTINE 



* INDICATE 
»TAPE (X'OLM I 
» DTF BYTE 21 



* INDICATE 
♦PRINTER (X'04« 

* IN DTF 

* (BYTE 21) 



LOAD USER'S 

IOREG WITH 

IOAREA ADDR. 



.* JOB * 
YES .» CONTROL 
...*. OPEN 

*. FILE 






* SET TAPE OPEN 

* INDICATOR 
MX'OO') IN DTF 

* (BYTE 21) 



*SET TAPE OUTPUT* 

* INDICATOR * 
*(X'08') IN DTF * 

* (BYTE 21) * 



SVC 2 

CALL 

$$B0MT06 



SET UP FOR 

EXCP, GET 

ADDRESS OF 

CCW 



SVC * 
SENSE 
COMMAND * 






*********** 






Ix 






X 

H4* **. 

I/O **. NO 
COMPLETE .« 


*«H5*«****« 

» SVC 7 • 
...X* WAIT *. 


J 



INITIALIZE 

TO PRINT 

MESSAGE 

4884D 
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Chart QK. $$B0CP12: Open DTFCP (Version 1 Only), Phase 2 (Section 1 of 2) 



ENTERED FROM 
$$B0CP11 OR 
$$B0MSG2. 



* RELOCATE CCB * 
*AND CCW ADDRESS* 

* CONSTANTS * 



SET * 
♦EJECT INDICATOR* 
*(X'40' ) IN DTF * 
* BYTE 21 * 



.* ENTERED 

*. FROM MSG 

*. PHASE 



***C2******* 

RESET 

MSG. IND. 

IN BYTE 89 

OF COMM. 

REGION 



* INDICATE RDR- * 
*PCH (X'30' ) IN * 
♦SWITCH BYTE CHK* 



**«*D1******** 

GET 

PUB POINTER 

FROM LUB FOR 

THIS UNIT 



♦INDICATE PUNCH 
*(X'08" ) IN DTF 
* BYTE 21 



CALCULATE 

PUB ENTRY 

ADDRESS 



INITIALIZE TO 

PRINT MESSAGE 

48 83 1 



»***G2****** 
SVC 2 
FETCH 
$$BOMSGl 



* INDICATE 1442 
*(X'08' ) IN DTF 

* BYTE 21 



* INDICATE 
.X*2520(X'04') IN 

* DTF BYTE 31 



♦SUBTRACT 1 FROM* 

* RECORD COUNT * 

* IN CCW * 



PPRT .*. 

*#»**H3********** H4 *. *«**»H5********* 

* SET READER * .* *. * SET UP CCW 

* INDICATOR * .* RDR-PCH. *. YES *TO EJECT FIRST 
.X*(X'02') IN DTF * *.SW. ON (CHK) .* X* CARD AND 

* BYTE 42 * *. *G3 .* * SUPPRESS I/O 

* * *. .* * TRANSFER 

**NO 

'. x'.x '. 

UNTRC X 

♦LDIOREG OL* 

* LOAD USER'S * 

* I/O REGISTER * 
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Chart QL. $$B0CP12: Open DTFCP (Version 1 Only), Phase 2 (Section 2 of 2) 



» INDICATE 
♦PRINTER (X'04' ) 
»IN DTF BYTE 21 



* SAVE 

* ADDRESS OF 

* I0AREA1 



.* IS DEVICE * 
*.A PRINTER OR 
*. PUNCH .* 



*. INPUT FILE 



* INDICATE * 
*TAPE (X '01' ) IN* 

* DTF BYTE 21 * 



YES .* FILE *. 

...*. OPENED BY JOB.* 
*. CONTROL .* 



♦**«H1********* 

SUBTRACT 1 

FROM I/O AREA 

ADDRESS FOR 

CONTROL 

CHARACTER 









RETMON 






X 






X 


**H2****»*** 






*H3***** 


SVC 11 






SVC 2 


TO PROBLEM 






FETCH 


PRO( 


5RAM 


* 


* 


$$ B 


JPbN 



STORE I/O 

AREA ADDRESS 

IN SAVE AREA 

FOR USER'S 

IOREG 



**K1******* 

RETURN TO 

CALLING 

ROUTINE 



INITIALIZE TO 

PRINT MESSAGE 

4884D 



* INDICATE * 
*TAPE (X'lO') IN* 

* DTF BYTE 20 * 



GETOPN 
YES .*" 



INPUT FILE 



* INDICATE OPEN 
♦OUTPUT (X'08») 
*IN DTF BYTE 21 



SVC 2 

FETCH 

$$B0MT06 
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Chart QM. $$B0CPT1: Open DTFCP and DTFDI Input Tape (Section 1 of 5) 



ENTERED FROM — 

$$B0CP01 - IF 

THE FILE IS 
DEFINED BY A 
DISK SYSTEM 
INPUT DTFCP 
AND THE DEVICE 
IS TAPE. 



2. 



$$BOCPMl - AFTER 
A MESSAGE HAS 
BEEN ISSUED AND 
A NON-CANCEL 
REPLY HAS BEEN 
RECIEVED. 



SET CCW 

OP CODE 

TO REWIND 



RELOCATE 

CCB'S AND 

CCW'S 



**»»C2******** 

MOVE DENSITY 

BITS TO SET 

MODE AND 

PERMANENT 

FLAG IN CCW 



C4 *. 

* IS * 

THIS A 

FORTRAN 

FILE 



***D2******** 
GET LOGICAL 

UNIT FROM 

DTF TABLE, 

GET DTF 

FILENAME 



DETPATH1 

*****D4» 

*SENSE 



CHECK FOR 
LOAD 
POINT 



MOVE ADDR 
OF TLBL I/O 
AREA TO CCW 



***F2******** 

MOVE PHASE 

ID TO UPPER 

B-TRANSIENT 

AREA 



SET CCW OP 
CODE FOR 
OPERATION 



.* IS *. 


♦ # 




* 


^. 




* TURN 


ON * 


.* THIS A *. YES 


* TURN OFF * 






YES 


* TAPEMARK * 


*. RETURN FROM .* 


X*MESSAGE REENTRY* 




TAPEMARK 




...X* INDICATOR * 


*.$$BOCPMl .* 


* SWITCH * 


* 


READ .* 




* SWBYTE * 


























*NO 








NO 

X . . .. .. 




\ 


DETERM X 


X 


CHKLAB 












H3* **. 




H4* *. 


















* INITIALIZE * 


.* RETURN *. 


"40 .* 


VOL1 . *. 


YES 




♦PROCEDURE LIST * 


*. ADDR .* 
*. SPEC. .* 


'". *"* 


LABEL 
READ .* 








♦POINTER TO ZERO* 
























***YES 


X 

*QN * 

* D2* 

PR0CRUN2 


**NO 
X 








X 














**»**J2********** 


X 




J4 *. 










****J3*»**#*»*« 












* INITIALIZE * 


* RETURN TO * 




HDR1 * 


YES 






*MSG RETURN ADDR* 


* ADDR SPEC * 




LABEL 




X 




* REG, MSGRTRG * 


* IN MSGRTRG * 


* 


. READ .* 








* _ * 


*******»»*»**»* 




** ** 








X 








*NO 




















LABLD 




K2****. 












*****K5* 


















.* REWIND *. NO 












* INCREMENT 


*. OPTION .* 












♦PROCEDURE LIST 


*. SPEC. .* 












* POINTER BY 4 
















*. .* X 














*YES *»** 












. 




























....X 


.PROCRUN 
< 


X * • 






















* * 












*Q 


M » 
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Chart qn; $$B0CPT1: Open DTFCP and DTFDI Input Tape (Section 2 of 5) 



CONDITION TABLE 



*ADD PROC. L 1ST 

* POINTER TO 
"STARTING ADDR. 

* OF PROCEDURE 

* LIST TABLE 



Label Information Supplied 


Yes 


No 


Tape at Loadpoint 


Tape at Loadpoint 


YES 


NO 


YES 


NO 


VOL1 


VOL1 


VOL1 


VOL1 


YES 


NO 


YES 


NO 


YES 


NO 


YES 


NO 


1 


HDR1 


NP 


HDR1 


5 


HDR1 


NP 


HDR1 


Y 


N 


Y 


N 


Y 


N 


Y 


N 


NP 


3 


2 


4 


NP 


7 


6 


7 



Numerics in bottom row refere 
List in Table at *D3. 



NP = Not Possible 



* EXEC. SUBRTN. * 

* IN REQUIRED * 
*PROC. SEE TABLE* 



**»*D2********* 

POINT TO NEXT 

SEQUENTIAL 

SUBROUTINE 

IN REQUIRED 

PROCEDURE *D3 



PROC. LIST 


1 


2 


3 


4 


5 


6 


7 


CHART 


S 
U 
B 
R 
T 
N 
S 


VOL1CHK 


X 














QN 


VOLSKIP 


X 








X 






OP 


HDRCHK 


X 


X 












QR 


FSTM 


X 


X 






X 


X 




QR 


ESITLAB 


X 


X 












QP 


NOVO LI 






X 










QN 


EXITNLAB 






X 








X 


QP 


NOHDR 








X 








QP 


EXITNLB 










X 


X 




QP 



»***F1********* 
* MSG14A * 


****F2********* 
* VOL1CHK * 


*«#*F3***** 
* N0V0L1 


***********»#*# 


*»***#****»»**# 


*********** 


DIR*QR *.. 

* Gl* 

MSG14A ) 
»***»G1* 

* SET 

* MESS 


< 

UP * 
AGF * 


X 
V0L1CHK .*. 

G2 *. 

.*" IS **. NO 
*. THI S A .*.... 


N0V0L1 

**«**G3* 

* SET 
....X* MES 


< 
UP 


* 4114A * 


*. V0L1 .* 


* 41 


1A 



**G4«***»* 
MSGWRITE 



SET UP 

MESSAGE 

4112A 



» RESTORE PTER 
» TO PROCEDURE 
* LIST 



YES .* TLBL * 

...*. FILE SERIAL 
*.N0. BLANK.* 



.* VOL *. 

•*SER. NO. EQ*. 

*. TLBL FILE . 

*.SER. NO. .* 



SET UP 

TO FETCH 

MSG WRITER, 

$$BOCPMl 



SVC 2 

FETCH 

$$BOCPMl 



RETURN 

TO CALLING 

ROUTINE 



* SET UP IGNORE * 
•RETURN ADDR AND* 

* ISSUE MSG * 



* MOVE VOL SER. 

* NO. INTO TLBL 
*FILE SER. NO., 

* INIT MSG 

* RETURN REG 



***K 5* ****** 

RETURN 

TO CALLING 

ROUTINE 
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Chart QP. $$B0CPT1: Open DTFCP and DTFDI Input Tape (Section 3 of 5) 



RESTART 

HDRCHK 
RTN TO READ 

AND CHECK 
HDR1 LABEL 



»**#C1********* 

* RETURN TO 
•NEXT PROCEDURE 

* SUBROUTINE 



SET CCW 
OP CODE 
FOR READ 



BLANK OUT 

LABEL AREA, 

LABAR 



******D2******* 
10 

READ TAPE 



WAS 
TAPEMARK 
. READ 



SET UP 

MESSAGE 

4113D 



* SET UP IGNORE * 
*RETURN ADDR AND* 

* ISSUE MESSAGE » 



*D3****** 

EXITNLB 



.* VOLUME *. YES 

*. LABEL .* 

*. READ .* 



.* STD. *. YES 

*. HDR1 LABEL .* 

*. READ .* 



TURN OFF 

DTF TAPE 

LABELED 

SWITCH 



GET ADDR 

OF FILE 

LIST 



«»CS**»**« 

TURN ON 

DTF TAPE 

LABELED 

SWITCH 



*SET CCW OP CODE* 

* TO BACKSPACE * 

* RECORD * 



* MORE *. YES 

FILES TO BE .* 

*. OPENED .* 



TURN OFF * 
OPEN ACTIVE * 
INDICATOR IN 
COMM. REGION * 



SVC 11 

RETURN 
TO USER 



SET UP TO 

FETCH OPEN 
MONITOR 



SVC 2 

FETCH 

$$BOPEN 
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Chart QR. $$B0CPT1: Open DTFCP and DTFDI Input Tape (Section <4 of 5) 



****A1**»* 
* FSTM 



«A2**»** 

HDRCHK 



*A4**«»* 
MSG16A 



SET CCW OP CODE* 
TO FORWARD * 


.* HDR1 *. 

• . EQ TLBL .• 

*. INFO .* 

" »N0 


^ES 


»*#*B3****** 
* RETURN 


SPACE FILE * 






X 

10 RC 

FORWARD 

* SPACE * 

FILE 


HDRCHK1 X 

*****C2**»**»«»«» 

* STORE PTER * 

* TO PROCEDURE * 

* LIST IN SAVE * 

* AREA * 







SET UP 

MESSAGE 

4116A 



SET UP 

MESSAGE 

4115A 



•SET CCW OP CODE* 

* TO REWIND AND * 

* UNLOAD TAPE * 



GET TLBL 

FI ELD 

DISPLACEMENT 



.* HAVE *. 
• ALL FIELDS 

BEEN 
». CHECKED . 



GET ADDR OF 

TLBL FIELD 

TO BE CHECKED 



**»*D3***»* 

MSG32D 



PERFORM 
REWIND- 
UNLOAD 



SET UP 

MESSAGE 

4132D 



SET UP 

MESSAGE 

4133D 



• QN * 

» HI* 

RESTORE 



TLBL FILE 



* IS THIS 

TLBL FIELD 
*. MISSING . 



•UPDATE POINTER 

* TO CHECK NEXT 

* TLBL FIELD 



* RETURN TO 
•NEXT PROCEDURE 

* »J1 



*J1 

WHTN Tl 
NUMBER 
CARD IS 
THE FIL 
ON THE 
LABFL 
FORWARD 
THE NEX" 
ITS HDR 
CHECKED 
FORWARD 
AN EQUA 
FILF SF 
IS FOUNI 



F FILE SEQ., 
ON THE TLBL 

GREATER THAN 
_ SEQ. NUMBER 
STANDARD HDR1 
HE TAPE IS 

SPACED TO 
I FILE AND 
1 LABEL IS 
. THE TAPE IS 

SPACED UNTIL 
_ COMPARE OF 
QUENCE NUMBERS 
U. 



GET ADDR 

OF HDR1 

FIELD 



.* HDR1 *. YES 

*. FIELD EQ TLBL.« 

*. FIELD .* 



HDRMSG X 

*****K2*»**«***» 

* INIT. POINTER 

* TO PROCEDURE 

* LIST FOR HDR 

* MSG PROCEDURE 

* RTN. »H4 



•MESSAGE 


. ROUTINE 


CHART LOCATION . 


. 4111A 


. N0V0L1 


QN 


. 4112A 


. MSG12A 


QN 


. 4113D 


. MSG13D 


QP 


. 4114A 


. MSG14A 


QN 


. 4115A 


. MSG15A 


QR 


. 4116A 

I "4132D"" 


. MSG16A 
I*MSG32D** 


QR 



. 4133D 


. MSG33D 


QR 



.PR0CRUN1 
X 

• QN * 
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Chart QS. $$B0CPT1: Open DTFCP and DTFDI Input Tape (Section 5 of 5) 



SRCHLAB 



SRCHLAB 

»»*«**B2* 
RDDISK 



SEARCH SYSRES 

* LBL CYL * 

TRACK 



**A4*»*»* 
SENSE 



SET CCW OP 

CODE FOR 

SENSE 

COMMAND 



CORRECT 
TLBL 
FOUND 



POINT TO 

SYSRES 

STD LABEL 

TRACK 



SET INDICATOR 
(LSTTCK) TO 
ACCEPT RCD 
ANYWHERE IN 

STD LBL AREA 



SEARCH 

STD LBL 

TRACK 



INCREASE 

PROCEDURE 

LIST POINTER 



RETURN 

TO CALLING 

ROUTINE 



* INCREMENT 

* PROCEDURE 

* LIST POINTER 



RETURN 

TO CALLING 

ROUTINE 



» CORRECT *. YES 

TLBL/TPLAB .*.... 
*. FOUND .* 



***H2»****** 

CLEAR 

TLBL INPUT 

AREA, 

TPLAB 



***J2******* 

RETURN 

TO CALLING 

ROUTINE 
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Chart QT, $$B0CPT2: Open DTFCP and DTFDI Output Tape (Section 1 of 6) 



*A1 
ENTERED FROM — 
1- 1>$B0CP01-IF THE 
FILE IS DEFINED 
BY A DISK SYSTEM 
OUTPUT DTFCP AND 
THE DEVICE IS TAPE. 
2. $$B0CPM2-AFTER 
THE MESSAGE HAS 
BEEN ISSUED AND A 
NON-CANCEL REPLY 
HAS BEEN RECEIVED. 



THIS 

FORTRAN 

FILE 



RELOCATE 

CCB'S AND 

CCW'S 



*»**»C2*****»**» 

* MOVE DENSITY 

* BITS TO SET 

* MODE AND 
♦PERMANENT FLAG 

* IN CCW 



SEARCH FOR 

TLBL 
INFORMATION 



*»**D2******** 

GET LOGICAL 

UNIT FROM 

DTF TBL, GET 

DTF FILENAME 



SET CCW 

OP CODE 

FOR READ 

OPERATION 



MOVE ADDR 
OF TLBL 

I/O AREA 
TO CCW 



***F2**«***»* 
MOVE PHASE 

ID TO 

UPPER 
B-TRANSIENT 

AREA 



.* WAS A 

*. TAPEMARK 

*. READ 



TURN ON 

TAPEMARK 

INDICATOR, 

SWBYTE 



* THIS A * 

RETURN FROM 
#.S$B0CPM2 .* 





CHKLAB .». 


#G3»**»**» 


G4 » 


TURN OFF * 




MESSAGE * 


.* VOL1 


REENTRY * 


*. LABEL 


SWITCH * 


*. READ 



***H2******* 

INITIALIZE 

POINTER TO 

PROCEDURE 

LIST 



RETURN 
ADDR 
SPEC. 



***»H4***»**»* 

INCREMENT 

PROCEDURES 

LIST POINTER 



INITIALIZE 

MSG RETURN 

ADDR REG, 

MSGRTRG 



RETURN TO 
ADDR SPEC. 
IN- MSGRTRG 



*»*K2»******* 

R 

REWIND TAPE 
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Chart QU. $$B0CPT2: Open DTFCP and DTFDI Output Tape (Section 2 of 6) 



CONDITION TABLE 



PROCRUN X 

*ADD PROC. LIST- 

* POINTER TO 
♦STARTING ADDR. 

* OF PROCEDURE 

* LIST TABLE 



* EXEC. SUBRTN. * 

* IN REQUIRED * 
*PROC. SEE TABLE* 



»****D2********* 

* POINT TO NEXT 

* SEQUENTIAL 

* SUBROUTINE 

* IN REQUIRED 
♦PROCEDURE *C3 



Label Informa 


tion Supplied 


YES 


NO 


Tape at Loadpoint 


Tape at Loadpoint 


YES 


NO 


YES 


NO 


VOL1 READ 


VOL1 READ 


VOL1 READ 


VOL1 READ 


YES 


NO 


YES 


NO 


YES 


NO 


YES 


NO 


1 


3 


2 


2 


4 


5 


2 


2 



Numerics in bottom row r 
List in Table at *C3. 



ference Procedure 



PROC. LIST 


1 


2 


3 


4 


5 


CHART 


S 

U 
B 
R 
O 
U 
T 
1 

N 
E 
S 


NOVOLO 






X 






QW 


VOLICHK 


X 




X 






QU 


VOLSKIP 


X 






X 




QV 


XPIRCHK 


X 






X 




QV 


BKSP 


X 






X 




QV 


HDRBLD 


X 




X 






QW 


DUMHDR1 








X 




QW 


TMWRITE 


X 




X 


X 




QV 


EXITLAB 


X 




X 






QX 


EXITNLAB 










X 


QX 


EXITNLB 








X 




QX 


REWINDTP 




X 








QT 



* TLBL * 
FILE SERIAL 

*.N0. BLANK.* 



*»»H1******** 

MOVE VOL. 

SERIAL NO. 

INTO TLBL 

FILE SERIAL 

NUMBER 



.* VOL. *. 
.*SER. NO. ON*. YES 

*.V0L1 EQ TLBL .* 

*.FILE SER..* 



*»**J2******** 

SAVE VOL. 

SERIAL NO. 

FROM VOL. 

LABEL IN DTF 



SET UP 

MESSAGE 

4112A 



* SET UP RETURN 
*ADDR AND ISSUE 

* MESSAGE 



***J3****** 

SAVE VOL. 

SERIAL NO. 

FROM VOL. 

LABEL 



MOVE VOL. 
SERIAL NO. 

INTO TLBL 
FILE SERIAL 

NUMBER 



REINITIALIZE 

MSG RETURN 

ADDR REG 

MSGRTRG 
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Chart QV. $$B0CPT2: Open DTFCP and DTFDI Output Tape (Section 3 of 6) 



♦A5**»* 
BKSP 



SET CCW 

OP CODE 
FOR READ 
OPERATION 



BLANK OUT 

LABEL AREA, 

LABAR 



MSG44A 
*QY * 



XPIRCHK .*. 

B3 *. 

.** HAS **. Y 


= S 


*»**B4****** 
* RETURN 


*. EXPIRED .* 






"*NO 






IMSG44A 






MSG19A X 

*****C3»***»«»*** 






* SET UP * 

* MESSAGE * 

* 4119A * 







**»*B5»***»**» 

SET CCW 

OP CODE 

TO BACKSPACE 

RECORD 



PERFORM 
BACK 
SPACE 



* SET UP RETURN * 
*ADDR. AND ISSUE* 

* MESSAGE * 



THIS A 

VOLUME 

LABEL 



REINITIALIZE 

MSG RETURN 

ADDR REG. 

MSGRTRG 



THIS A *. YES 

STD HDR1 .*.... 

LBL .* 



**F2******* 

RETURN TO 

CALLER 



****F3******* 
* RETURN TO 

» CALLER 



»»**F5***»** 
TMWRITE 



NOXPIRCK 

* ADJUST PTER 

* TO PROCEDURE 

* LIST TO SKIP 
» EXPIRATION 

* DATE CHECK 



»*H1******* 

RETURN 

TO CALLER 



TMWRITE X 

* SET CCW 

* OP CODE 

* TO WRITE A 

* TAPE MARK 
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Chart QW. $$B0CPT2: Open DTFCP and DTFDI Output Tape (Section 4 of 6) 



INIT DEFAULT 

OPTNS FOR 
VOL SEQ, FILE 

SERIAL, GEN 
AND VER NOS. 



****C1********* 

CHECK THE 

VOL SEQ, FILE 

SERIAL AND 

GEN NOS. FOR 

BLANKS 



SET NUMBER 

FIELD TO 

BCD 1, 

0001 



GET 

RETENTION 

PERIOD 



CONVERT 
TODAY'S 
DATE TO 
BINARY 



ADD RETENTION 

PERIOD TO 

TODAY'S 

DATE 



.* FILE «. YES 
.X». IDENTIFIER .*... 
*. SPEC .* 



MOVE DTF 

NAME INTO 

TLBL CARD 

IMAGE 



NOVOLO 


X 




*B5****** 




SET CCW 




OP CODE 




TO REWIND 


* 


TAPE 



*»D3»»**»*» 
MOVE TLBL 
INFO INTO 

BUILD AREA 

FOR HDR1 

LABEL 



***«E3********* 

MOVE BLANKS 

INTO RESERVED 

AREA IN 

HDR1 LABEL 



**«*C4**»»*» 
DUMHDR1 



* MOVE 

* BINARY 

* ZEROS INTO 

* HDR1 LBL AREA 



***E4******** 

MOVE BINARY 

ZEROS INTO 

RESERVED 

AREA IN 

HDR1 LBL 



REWIND TAPE 



SET UP 

MESSAGE 

4110A 



VER 

NUMBER 

BLANK 



♦ Gl* 



MOVE 2 BYTES 
OF ZEROS 

INTO VERSION 
FIELD OF 

TLBL CD IMAGE 



X 


MOVEHDR X 


F2***»****** 


»**»»F3»**»«* 




* MOVE 'HDR1 


DIVIDE * 


* TO FIRST 4 


SUM BY * 


* BYTES OF 


365 * 


* HDR1 LBL 



* SET UP ♦ 
♦RETURN ADDR AND» 

* ISSUE MESSAGE * 



*»**F5******** 

REINITIALIZE 

MSG RETURN 

ADDR REG, 

MSGRTRG 



»***H1***»***** 
MOVE TODAY'S 

DATE TO 

CREATION DATE 

FIELD OF TLBL 

CARD IMAGE 



♦EXPIRATION 

DATE FIELD 

*. BLANK . 



*** ♦♦«].♦♦♦♦♦♦♦♦♦ 

* SET 

* RETENTION 
♦PERIOD TO ZERO 



*»*»G2* **♦*♦*** 

CONVERT 

REMAINDER TO 

DEC AND PLACE 

IN EXPIRATION 

DATE FIELD 



CONVERT 

YEAR OF 

TODAY'S DATE 

TO BINARY 



ADD QUOTIENT 

TO YEAR AND 

CONVERT TO 

DEC IMAL 



HDRWRITE X 

♦♦♦♦♦G3******* 

* SET CCW 

* OP CODE 

* FOR WRITE 

* OPERATION 



*J3*^*****»* 



*»*»K 2* ******** 

MOVE A 

BLANK INTO 

FIRST BYTE OF 

EXPIRATION 

DATE 
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Chart QX. $$B0CPT2: Open DTFCP and DTFDI Output Tape (Section 5 of 6) 



EXITLAB 



TURN ON 

DTF TAPE 

LABELED 

SWITCH 



»**A4*****» 
MSG4184D 



GET ADDR 
OF OPEN 

MONITOR, 
$$BOPEN 



SVC 2 
FETCH 
$$BOPEN 



WAS A 
TAPE 
MARK 
READ 



.»**C3*»«****» 

SET CCW 

OP CODE 

TO BACKSPACE 

RECORD 



SET UP 

MESSAGE 

4184D 



»»»*B5»*»*»* 
MSGWRITE 



MSGWRITE 

«*«»*C4* 

* GET ADDR 
» OF MESSAGE 

* WRITER, 

* $$B0CPM2 



SVC 2 

FETCH 

$$B0CPM2 



EXITNLB 

«****E3*'***»* 

* TURN OFF 

* DTF TAPE 

* LABELED 

* SWITCH 



Charts 259 



m Chart QY. $$B0CPT2: Open DTFCP and DTFDI Output Tape (Section 6 of 6) 



SENSE 



SRCHLAB 

»**«**B2» 
RDDISK 



SEARCH SYSRES 

» LBL CYL » 

TRACK 



SET CCW 

OP CODE 

FOR SENSE 

COMMAND 



CORRECT 
TLBL 

FOUND 



»*D2******« 
POINT TO 

SYSRES 

STD LABEL 

TRACK 



**#*E2*»»**»*** 

SET INDICATOR 

(LSTTRK) TO 

ACCEPT RCD 

ANYWHERE IN 

STD LBL AREA 



CORRECT 
TLBL 

FOUND 



CLEAR 
TLBL INPUT 
AREA, TPLAB 



.» IS *. 

TAPE * 
FILE 
.PROTECTED.* 



TAPE 

AT LOAD 

POINT 



INCREMENT 

PROCEDURE 

LIST POINTER 



ISSUE FILE 

PROTECT MSG 

U 1 840 



THIS *. YESX 

EN TRACK .* 

TAPE .» 



LABFND 

«»»**H3****»»*» 
» INCREMENT 

* PROCEDURE 

* LIST POINTER 

* BY 8 



«*J2»*«*«*» 

RETURN TO 

CALLING 

ROUTINE 



A 1600 » 
BPI ON TAPE 
. DRIVE .* 



1600 BPI 

TAPE 

.ASSIGNED 



SET UP 

MESSAGE 

U144A 



*»K5****«* 

RETURN TO 

CALLING 

ROUTINE 



260 IBM S/360 DOS Logical IOCS,, Volume 2 



Chart QZ. $$BCCPT1: Close DTFCP and DTFDI Tape Files (Section 1 of 3) 



$$BCCPT1 
ENTERED FROM 
CLOSE MONITOR 



ESTABLISH 
AND INIT 
REGISTERS 



OPENINIT 

*****C1****** 

* RELOCATE 

* TAPE CCB 

* AND CCW 

* ADCON'S 



****D1******** 

MOVE DENSITY 

BITS FROM PUB 

ENTRY TO SET 

MODE AND 

PERM FLAG 



GET LOGICAL 
UNIT AND 

DTF 
FILENAME 



***F1******«* 
MOVE THE 
ADDR OF THE 
TLBL I/O 
AREA TO 
READ CCW 



****G1******* 

MOVE MSG 

CODE OF 8 

TO MSG AREA, 

MSGCODE 



*** »B2* ******* 

INCREMENT 

PROCEDURE 

LIST POINTER 



PROCRUN X 

•****B3*«******* 

* ADD PROCEDURE 

* LIST POINTER 

* TO START OF 

* PROCEDURE 

* TABLE 



****J1** ****** 

INCREMENT 

PROCEDURE 

LIST POINTER 



ADJINPUT 

* INCREMENT 

* PROCEDURE 

* LIST POINTER 

* BY 16 



REWIND 
TAPE 
SPEC 



* EXEC. SUBRTN * 

* IN REQUIRED * 
•PROC. SEE TABLE* 



PR0CRUN2 X 

*****D3********* 

* POINT TO NEXT 

* SEQUENTIAL 

* SUBROUTINE 

* IN REQUIRED 
^PROCEDURE *J3 



SET CCW 

OP CODE 
FOR READ 
OPERATION 



.* STD *. 

.» LABELED *. 

». TAPE WITH . 

». TLBL .* 



INCREMENT 

PROCEDURE 

LIST POINTER 



CONDITION TABLE 



Input File 


Output File 


Rewind S 


pecified 


Rewind Specified 


YES 


NO 


YES 


NO 


STD LABELS 


STD LABELS 


STD LABELS 


STD LABELS 


YES 


NO 


YES 


NO 


YES 


NO 


YES 


NO 


EOF1 


EOF1 


EOF1 


EOF1 


4 


6 


5 


7 


Y 


N 


Y 


N 


Y 


N 


Y 


N 


1 


1 


1 


1 


3 


2 


3 


2 



Numerics in bottom row refer* 
in Table at *J3. 



; Procedure List 



PROC. LIST 


1 


2 


3 


4 


5 


6 


7 


CHART 


S 
U 
B 
R 
T 
N 
S 


RDTPLAB 








X 


X 






RA 


TMWRITE 








X 


X 






RA 


EOFBLDWT 








X 


X 






RB 


TMWRITE 








X 


X 






RA 


TMWRITE 








X 


X 


X 


X 


RA 


BKSP 










X 






RA 


BYSTDUTL 






X 










RA 


TREWIND 


X 






X 




X 




RA 


EXIT 


X 


X 


X 


X 


X 


X 


X 


RB 
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Chart RA. $$BCCPT1: Close DTFCP and DTFDI Tape Files (Section 2 of 3) 



TREWIND 



w*A3****** 
BYSTDUTL 



SET CCW 

OP CODE 

TO BACKSPACE 

RECORD 



SET CCW 

OP CODE 

TO REWIND 

TAPE 



SET CCW 

OP CODE 

TO READ 

TAPE 



* CLEAR READ 

* 10 AREA, 

* LABAR 



RDTPLAB 

«««*«*B4« 
RDDISK 



*D2»**«* 
RETURN 



USER 

TRAILER 

LABEL 



SET CCW 

OP CODE TO 

WRITE A 

TAPEMARK 



SEARCH SYSRES 

* LBL CYL * 

TRACK 



**C4*****» 

POINT TO 

STANDARD 

LABEL 

TRACK 



»«D4* 
MOVE STD 
LBL TRK. 

NO. TO 

SEEK/SRCH 

FIELD 



*. 


RDDISK 


E0F1 *. YES 




TRAILER .*..X 


SEARCH 


LABEL .* 


* STD LBL 


.* 


TRACK 



CORRECT *. YES 
TLBL .*.... 

FOUND .* 



«««G4 **««**«* 
PUT ADDR. 
OF NO LABEL 
INFORMATION 
MSG, 48811, 
IN MESSREG 



WRITE 
TAPE 
MARK 



*H3***** 
RETURN 



INITIALIZE 
TO FETCH 

MSG WRITER, 
$$B0MSG1 



*«**J2****» 
RETURN 



SVC 2 

FETCH 

$$B0MSG1 
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Chart RB. $$BCCPT1: Close DTFCP and DTFDI Tape Files (Section 3 of 3) 



**A3****** 
EOFBLDWT 



TURN OFF * 
LABEL SWITCH 
(OPSWI) IN 
DTFCP 



EXITMON 

*.***C1******* 

* GET ADDR 

* OF CURRENT 

* POSITION 

* FILE LIST 



EOFBLDWT 

»**»*B3********** 

* INIT DEFAULT * 

* OPTNS FOR * 
» VOL SEQ, FILE * 
•SERIAL, GEN AND* 

* VER NOS. * 



♦»«*C3********* 

CHECK THE 

VOL SEQ, FILE 

SERIAL AND 

GEN NOS. FOR 

BLANKS 



GET 

RETENTION 

PERIOD 



* FILE *. YES 

IDENTIFIER .*. 
•.SPECIFIED.* 



**C5******* 

MOVE DTF 

NAME INTO 

TLBL CARD 

IMAGE 



MORE *. YES 






.* NUMBER(S) *. NO 


* CONVERT 


FILES TO BE .*.... 






*. BLANK .*... 


* TODAY'S DATE 


. CLOSED .* 






* TO BINARY 






















♦ NO 






*YES 




X 


CLOSNXT ) 


< 


X 


! X 


**E1******* 


****«E2********** 


»****E3********** 


*****E4********h 


TURN OFF * 


* SET UP TO * 


* SET NUMBER * 


* ADD RETENTION 


CLOSE * 


* FETCH * 


* FIELD TO BCD * 


* PERIOD TO 


ACTIVE * 


* CLOSE * 


* CHAR 1, * 


* TODAY'S 


INDICATOR * 


* MONITOR * 


* 0001 * 


* DATE 
















*x 


m 








X 
ODEFALT .*. 


X 


X 


X 


F3 *. 


»»*#«F4**»***** 


»*F1********* 








SVC 11 * 


* SVC 2 * 


.* VER *. NO 


* DIVIDE 


RETURN * 


* FETCH * 


*. NUMBER .*... 


* SUM BY 


TO USER * 


* $$BCL 


OSE * 


*. BLANK .* 


* 365 



«***G3********* 

MOVE 2 

BYTES OF 

ZEROS INTO 

VERSION FIELD 

OF TLBL IMAGE 



****H3******** 

MOVE TODAY'S 

DATE TO 

CREATION 

DATE FIELD 



CONVERT 

REMAINDER TO 

DEC AND PLACE 

IN EXPIRATION 

DATE FIELD 



CONVERT 

YEAR OF 

TODAY'S DATE 

TO BINARY 



***D5******* 
MOVE TLBL 
INFO INTO 

BUILD AREA 
FOR E0F1 

TRAILER LBL 



****E5******** 

MOVE FILE 

SERIAL NO. TO 

E0F1 TRAILER 

LABEL AREA 



MOVE BLANKS 

INTO E0F1 

RESERVED 

AREA 



MOVE 'E0F1' 

TO FIRST 4 

BYTES OF 

E0F1 TRAILER 

LABEL 



SET CCW 

OP CODE TO 

WRITE 



•EXPIRATION *. NO 
DATE .*... 
*. BLANK .* 



*»K3******* 

SET 

RETENTION 

PERIOD 

TO ZERO 



ADD QUOTIENT 

TO YEAR 

AND CONVERT 

TO DECIMAL 



**»*K4********* 

MOVE A 

BLANK INTO 

FIRST BYTE 

OF EXPIRATION 

DATE 



WRITE E0F1 

TRAILER 

LABEL 



»*K5********* 
RETURN TO * 
CALLING * 
ROUTINE * 
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Chart RC. DTFCP and DTFDI : 



I/O Subroutines 



*A2***»* 
RODISK 



GET ADDR 

OF CCB FOR 

READING DISK 



GET ADDR 

OF TAPE 

CCB 



CHAN 

END 

.OCCURRED 



SVC 7 

WAIT FOR 

CHANNEL END 



CHAN * 
END 
.OCCURRED .* 



RETURN 

VIA 

RTREG 



SVC 7 
WAIT FOR 
CHANNEL END 



.* *. YES 

.UNRECOVERABLE.*.... 
*.I/0 ERROR.* 



*F3****** 
SVC 11 
RETURN 
TO USER 



NRF *. NO 
OR END OF .*... 

CYL .* 



CORRECT *. NO 
TLBL .*... 

FOUND .* 



RETURN 

VIA 

RTREG + 



RETURN 

VIA 

RTREG 
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Chart RD. $$BCLOSP: Punch File Close (Section 1 of 4) 



$$BCLOSP 

FROM CLOSE 

MONITOR 



RELOCATE 

CCW ADDR 

IN CCB 



PCHBLANK X 
******B3»* 
STARTIO 



CP2520 X 
******B5** 
WTDEVED 



PUNCH 
BLANK 
CARD 



WAIT FOR 

DEVICE 

END 



*C1****** 

FIND 
CORRECT 
PUB FOR 
LOGICAL 

UNIT 



1442 

READER 

PUNCH 



DTFCD *. YES 
PUNCH .* 

FILE .* 



*E2*»* 


***** 


RESTORE 


IGINAL 


CCW 


DDR TC 


CCB 


DISK 


DTFCP 


DTFDI 


TABLE 



YES .* DTFCP 
«. OR DTFDI 

*. DISK 



***E3»****»** 

RESTORE 

ORIGINAL 

CCW ADDR TO 

CCB IN TAPE 

DTFCD TBL 



•RETRYMSG 



C0NT3 


X 
*F3***»**» 


I 


STORE 
CCB 


.*** 


********** 


REST0RE2 **** 

*RE 
* H3 

RETURN 


*..'...* 3 

*G3**»**** 


* GET POINTER 

* TO FILES 

* TO BE CLOSED 



* GET ADDRESS 
» OF ERROR CCW 
•FOR DISK DTFCP 

* OR DTFDI 



ISSUE RETRY 

MESSAGE 

40001 



DTFCP 
OR DTFDI 
. DISK 



GET ADDR 

OF ERROR CCW 

FOR TAPE TYPE 

DTFCP 



ANOTHER *. YES 
DTF TO .* 

CLOSE .* 



RESET CLOSE* 
ACTION 
INDICATOR IN 
COMM. REGION 



« GET NAME OF 
.X*CLOSE MONITOR, 
* $$BCLOSE 



SVC 2 

FETCH 

$$BCLOSE 



**K3**»***. 

SVC 11 

EXIT TO 

USER 
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Chart RE. $$BCLOSP: Punch File Close (Section 2 of 4) 



I/O 
AREAS 
SPEC 



LOAD ADDR 

OF CCW TO 

PUNCH A 

BLANK CARD 



CD25202 

WTDEVED 



WAIT FOR 

DEVICE 

END 



CD25402 X 
«*»***C2»* 
WTDEVED 



WAIT FOR 

DEVICE 

END 



GET ADDR 

OF ERROR 

CCW FOR 

DTFCD TBL 



PUNCH CARD 

FROM SAVE 

AREA 



LOAD 
CCW FOR 
BLANKS 



LOAD CCW 
ADDR FROM 
DTFCD TBL 



PUNCH 
BLANK 
CARD 



LOAD CCW 

ADDR FROM 

DTFCD TABLE 



•»H3******* 
RESTORE 
ORIGINAL 
CCW ADDR 
IN CCB IN 
DTFCD TBL 



PUNCH 
BLANK 
CARD 



LOAD ADDR 

OF ERROR 

CCW FOR 

DTFCD TBL 



REPUNCH CARD 
* FROM SAVE 
AREA 
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Chart RF. $$BCLOSP: Punch File Close (Section 3 of 4) 



*RD * 
* Il» 

Tfincls 

X 
REPCHCP1 .*. 

Bl ♦ . 

.♦* DTFCP *♦. YES 

*. OR DTFDI .* 

*. DISK .♦ 



* LOAD ADDR 

* OF ERROR CCW 
♦(FOR SAVE AREA 

* 2) FOR TAPE 

* TYPE DTFCP 



C0NT1 X 

STARTIO 



PUNCH CARD 

FROM SAVE 

AREA 2 



»****C2««**»**«* 

* LOAD ADDR 

* OF ERROR CCW 
♦(FOR SAVE AREA 

* 2) FOR DISK 
♦DTFCP OR DTFDI 



DISK<+ X 

***»*E2» ***»***» 

♦ LOAD ADDR 

♦ OF ERROR CCW 
♦(FOR SAVE AREA 

♦ 1) FOR DISK 
♦DTFCP OR DTFDI 



YES .* DTFCP 

...... OR DTFDI 

♦. DISK 



* LOAD ADDR 

* OF ERROR CCW 

* (FOR SAVE AREA 

* 1) FOR TAPE 
» TYPE DTFCP 



PUNCH CARD 
♦ FROM SAVE 
AREA 1 



DTFCP ♦. YES 

OR DTFDI ...... 

. DISK .♦ 



***»*H1***»****» 

♦ LOAD ADDR 

♦ OF ERROR CCW 
♦(FOR SAVE AREA 

♦ 1) FOR TAPE 

♦ TYPE OTFCP 



DISK2 

♦ LOAD ADDR 

♦ OF ERROR CCW 
♦(FOR SAVE AREA 

♦ 1) FOR DISK 
♦DTFCP OR DTFDI 



PUNCH CARD 
FROM SAVE ♦ 
AREA 1 
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Chart RG. $$BCLOSP: Punch File Close (Section 4 of 4) 



RETRYMSG 



STORE ADDR 
OF CCW 
IN CCB 



GET ADDR 

OF DTF 

TABLE 



GET ADDR 

OF CONSOLE 

CCB 



SVC 

START 

I/O 



SVC 

START 

I/O 



**F1* 
« SVC 7 
WAIT 
FOR DEVICE 
END 



*F2***** 
RETURN 



*D5*««*» 
RETURN 



SVC 7 

WAIT FOR 

CHANNEL END 
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Chart RH. $$B0CPM1 and $$B0CPM2: DTFCP/DTFDI Message Writers (Section 1 of 3) 



RELOCATE 

CCB'S 
AND CCW'S 



NO-OP 

WRITE 

BLANKS 

CCW 



GET SYMBOLIC 

UNIT IN 

BCD 



MOVE 
MSG TO 
I/O AREA 



PRINT 
TLBL FILE 
. SERIAL . 
*. NO. .* 



MOVE 'TLBL = 
AND FILE 

SER IAL 
NUMBER TO 
MSG AREA 



***H2* 
MOVE FIELD 

LENGTH 
INTO WRITE 
LABEL CCW 



»*»»J2«»***»**« 

INCREASE 

DATA ADDR IN 

WRITE LBL CCW 

BY FIELD 
DISPLACEMENT 



* SET * 

* INDICATOR * 

* FOR AUTOMATIC * 
*JOB TERMINATION* 



AGAIN 

**»***F 
READ 



READ 
OPERATOR 
RESPONSE 



SET 

EOB 

INDICATOR 



.» RESPONSE *. NO 
EOB OR NO .*... 
*. 1052 .* 



* B2* 

L00P2 



»*»»J4***** 
« SVC 6 

♦ CANCEL 
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Chart RJ. $$B0CPM1 and $$B0CPM2: DTFCP/DTFDI Message Writers (Section 2 of 3) 



.* RESPONSE 
♦ . VOL SERIAL 
♦ . NUMBER . 



*»*B3**«**»**«* 

CONVERT ♦ 

RESPONSE TO * 
UPPER CASE * 



NOTLEGAL X 

»*»»*C1***»»«* 

* SET UP TO 

* WRITE 22 

* CHARACTER 

* MESSAGE 



**D1*****» 

MOVE 

• INVALID 

RESPONSE' 

TO MSG 

AREA 



C2 ♦ . 

.* VOL * 

.♦SERIAL NO. 
LEGAL 
♦.RESPONSE 



MOVE ♦ 

•V0L1' TO LABEL» 
AREA, IOAREA * 



»*»»C4***«* 

* SVC 6 

* CANCEL 



.* RETRY 
.X*. LEGAL 
♦.RESPONSE 



STARTOVR X 

♦ CLEAR RET REG 
♦TO IND PHASE TO 

...X* BE FETCHED TO 

♦ START FROM 

♦ BEGINNING 



*H1 
INDICATES A 
RETURN FROM THE 
MESSAGE WRITER 
AND THAT AN 
IGNORE RESPONSE 
WAS RECEIVED. 



BLANK OUT 

REST OF VOL1 

LBL AREA, 

IOAREA 



INSERT VOL 

SERIAL NO. 

IN VOL1 

LABEL 



****G2^ ♦♦♦*♦♦♦*< 

INITIALIZE 

FILE SECURITY h 

FIELD IN VOL1 < 

LABEL TO 

ZERO 



****H2****»«* 
TURN ON ♦ 
BIT X« 80* IN 

BYTE 89 OF 
COMM. REGION 





LEGAL2 


.♦. 


F3 ♦. 




F4 ♦. 








RESPONSE ♦. YES 




BYPASS 


BYPASS ...... 


...X^. 


LEGAL 






RESPONSE 



♦ HI 



NEWTAP ♦. NO , 
LEGAL .♦..X 
.RESPONSE .♦ 



$$B0CPT1 
CALLING 
. PHASE 



LEGAL 1 
NO .♦' 



IGNORE 

RESPONSE 

LEGAL 



****H5******* 
TURN ON ♦ 
BIT X'80' IN 

BYTE 89 OF 
COMM. REGION 
♦ HI ♦ 



*****J2^ ♦♦♦♦♦♦** 

♦ GET NAME 

» AND RET ADDR 
♦OF PHASE TO BE 

♦ FETCHED BY 

♦ $B0CPM1 



SVC 2 

FETCH 

NEXT PHASE 



IS ♦ 
MESSAGE 
. 41L5A .♦ 


. YES 




NO 




) 


( 




BLANK OUT 

LABEL AREA 

IOAREA 


* : 


h«»»««***»**« 


** 




X 
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Chart RK. $$B0CPM1 and $$B0CPM2: DTFCP/DTFDI Message Writers (Section 3 of 3) 



♦***A4***» 



GET ADDR 

OF WRITE 

CCW'S 



GET ADDR 

OF READ 

CCW 



STORE CCW 

ADDR IN 

CCB 



* SVC 7 

WAIT FOR 
H/0 COMPLETE 



*F4 ********* 
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Chart RL. $$B0MSG1: Disk Open Error Message Writer, Phase 1 (Section 1 of 2) 



MSGR0UT1 X 

*»*»*B1******** 

* SAVE RETURN 

* PHASE NAME 

* AND MESSAGE 

* NUMBER 



**B3********** 

GET ADDR * 

OF OPEN * 

CCB * 



THIS A * 
TAPE FILE 
.PROT. MSG.* 



****C1******** 

MOVE 
ORGANIZATION 
TYPE NUMERIC 

CODE TO 
MSG OPT AREA 



***#C3********** 

FIND LUB * 

ENTRY FOR * 

LOG UNIT SPEC * 

IN CCB USING * 

SYSIR MACRO * 



GET ADDR 

OF CCB 

FOR 

SUPERVISOR 



*»D1******* 

MOVE DTF 

FILE NAME 

TO MSG 

OUTPUT 

AREA 



INIT CCW 

WITH 

SYSLOG 

OP CODE 



RELEASE * 
DSECT REG * 

USED BY * 
SYSIR * 
MACRO * 


SVC 

* READ * 

VOLUME 

* LABEL * 




X 

E3* **. 
.* IS *. 

UNIT *. YES 

IGNORED OR .* 

UNASSIGNED.* 


X 

E4* "*. 

.*" I/O **. NO 
*. COMPLETE .* 


»*E5******* 
* SVC 7 * 

* WAIT FOR » 
...X* I/O *.... 

* COMPLETE * 



LOADWORK 

*»***F1****** 

* RELOCATE 

* THE CCB 

* AND THE 

* CCW'S 



*»F3******* 

FIND 

PUB 

ENTRY FOR 

UNIT SPEC 

IN CCB 



RESTORE * 

CCW STRING * 

ADDR IN * 

OPEN CCB * 



**G1******* 

GET 

SYMBOLIC 

UNIT ADDR 

IN CCB 



»«**J1». »»*»*» 
GET SYS 

MSG 

DISPLACEMENT 

AND ADDR OF 

REG SYS MSG 



***#»H 2* ******** 

* CONVERT 

* SYMBOLIC 

* DISPLACEMENT 
*INTO PRINTABLE 

* FORMAT 



***J2******* 

MOVE 

CONVERTED 

- INFO TO 

MSG OUTPUT 

AREA 



*****G3******** 

* UNPACK CHAN 
*AND UNIT ADDR. 

* CLEAR ZONE 

* BYTE 



*****H3********** 
♦TRANSLATE CHAN * 
*+ UNIT ADDR TO * 

* PRINTABLE HEX * 
*AND MOVE TO MSG* 

* OUTPUT AREA * 



****«J3********** 

* SET MSG LNG * 

* IN SYSLOG * 
*CCW TO INCLUDE * 

* CHANNEL AND * 
♦UNIT ADDR, CUU * 



.* HAS *. 
*A DISASTER *. YES 
ERROR .*... 
*. OCCURRED .* 



MOVE VOL 

NUMBER TO 

MSG OUTPUT 

AREA 



* Bl* 
SHIFTMSG 



*»**K1********* 
MOVE SYMBOLIC 

UNIT NUMBER 

AND CONSTANT 

TO MSG 

OUTPUT AREA 



.* IS *. 

* THIS AN * 

INVALID LOG 
*.UNIT MSG .* 



SET MSG LNG 
IN SYSLOG 

CCW TO MAX 
VALUE, 61 
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Chart RM. $$B0MSG1: Disk Open Error Message Writer, Phase 1 (Section 2 of 2) 



SHIFTMSG X 

* GET NO. OF 

* MSG TO BE 

* WRITTEN 

* ON SYSLOG 



.* WRONG * 
.PACK MOUNTED 
*. MSG .* 



GET ADDR 
OF FIRST 

MSG IN 
$$BOMSG2 



*«*»B4***«**»*» 

UPDATE MSG 

OVERLAY 

PHASE NO. TO 

THE NEXT 
OVERLAY PHASE 



* SUB NO. OF 

* MSGS IN 
•OVERLAY PHASES 

* (13) FROM 

* CURR MSG NO. 



* MOVE PACK * 

* SERIAL NO. * 

* TO MSG * 

* OUTPUT * 

* AREA * 




X . 

El"***. 

.** EQUAL **. NO 

*. FILE ID .* 

*. MSG .* 


*E2 
ADDR OF MSG — 
MSG NUMBER 
MULTIPLIED BY ITS 
LENGTH FACTOR 
PLUS ADDR OF FIRST 
MSG IN PHASE. 






FILEOVLP 

»«»**F1******* 
» INIT CCW 

* TO WRITE 

* 3 BLANKS 

* ON SYSLOG. 



GET ADDR 

OF MSG 

*E2 



SET UP 
TO FETCH 
$$BOMSG2 



****F3****** 
SVC 2 
FETCH 
$$BOMSG2 



INITREG X 

*****G1***»****« 

* GET ADDR 

* OF 1ST MSG 

* TO BE WRITTEN 

* BY THIS PHASE 



HI *. 
.* IS *. 

* MSG TO BE ♦. 

WRITTEN IN . 
•THIS PHASE. » 



«»*»J1******** 

SUB NO. OF 

MSGS IN 

PREV PHASES 

(15) FROM 

CURR MSG NO. 
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Chart RN. $$B0MSG2: Disk Open Error Message Writer, Phase 2 (Section 1 of 3) 



**A1****** 

ENTERED 

FROM 

$$B0MSG1 



*A5 
THE NAMES OF THE 
MESSAGE OVERLAY 
PHASES ARE 

1. $$B0MSG3 

2. $$B0MSG4 

3. $$B0MSG5 

4. $$B0MSG6 

THESE PHASES CONTAIN 
MESSAGES ONLY. 



.* *. FILE 

OTHER .* WRONG *. OVERLAP 
.».PACK MOUNTED .*... . 
*. MSG .* 



***»*C1*»* 



ADD ONE 
TO SPACE 
COUNTER 



*C3i 



TURN ON 

WRONG PACK 

SWITCH 



POINT TO * 

NEXT POSITION * 

IN FILE ID * 

TO BE TESTED * 

FOR BLANK * 



#**B4******* 

GET ADDR 

OF MSG 

OVERLAY 

PHASE NAME 

*A5 



»*»C4******** 

GET LOAD 

ADDR OF 

MSG OVERLAY 

PHASE 



EQUAL 

FILE ID 

MSG 



»»»«E1*****»* 

TURN ON * 

BR SWITCH * 

FOR MSG 4N33A 

AT LOCATION * 

MSG05SW * 



***F1******* 
TURN OFF * 

'FILE OVERLP 
MESSG' BR 
SWITCH AT 
TYPEASW * 



»««G1*****»* 
GET NO. OF 
CHARACTERS 

PLUS ONE 
IN FILE ID 



*H1****** 

GET END 

ADDR OF 

FILE ID 

FIELD 



.*. 


LOADPHAS X 


D3 *. 


**»***D4***** 


* FIELD *. 


SVC 4 


ID FIELD *. YES 


* LOAD 


POSITION .* 


MESSAGE 


BLANK .* 


* OVERLAY 


*. .* 


PHASE 



***»E34 

GET NO. OF 
CHARACTERS 
TO TYPE AND 
STORE IN CCW 
COUNT FIELD 



INITIALIZE 

FOR A CANCEL 

SITUATION 



MOVE MSG 

TO SYSLOG 

OUTPUT 

AREA 



***F4»****** 
INITIALIZE 
CCB WITH 

SYSLOG 
SYMBOLIC 
UNIT ADDR 



THIS A 

TAPE 
MSG 



*****H3****»*» 

* MODIFY * 

* RESPONSE 

* TESTS TO 

* PREVENT VTOC 
*DMP FROM TAPE* 



GET ADDR 

OF WRITE 

CCW 



ZERO 

SPACE 

COUNTER 



.* MESSAGE *. 

♦ALREADY IN MAIN* 

*. STORAGE .* 



THIS A 

CANCEL 

MSG 
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Chart RP. $$B0MSG2: Disk Open Error Message Writer, Phase 2 (Section 2 of 3) 



•RQ-D1 
RQ-G2 
RQ-J1 



GET ADDR 

OF READ 

CCW 



TINTSW X 


ABORTJOB X 


♦****B3******* 


*****B4-****** 


* SET * 




* MESSAGE * 


* INITIALIZE 


* RETURN * 


* TO CANCEL 


* INDICATOR * 


* JOB 



READ 

OPERATOR' S 

RESPONSE 



.* DID *. 

OPERATOR 
TYPE ALT. 
. CANCEL . 



GET 

RETURN 

PHASE 

NAME 



.* DOES *. 
USER WANT *. YES 
A VTOC .*.... 
DUMP .* 



CLEAR 
SYSLOG 
TYPE- IN 

AREA 



**D3******* 

GET 

ADDR 

OF NEXT 

PHASE TO 

BE FETCHED 



SVC 11 

RETURN TO 

JOB CONTROL 



.* DID *. 

.* OPERATOR *. YES 

.RESPOND WITH .* 

*. EOB .* 



**»*E3******** 

SVC 2 

FETCH RETURN 

PHASE 



SVC 6 

CANCEL 

JOB 



***»*F1****** 

* CONVERT 

* RESPONSE 

* TO UPPER 

* CASE 



. *. 




GETDSPLY 


Gl *. 




*****G 2* ****** 


* DOES *. 




* GET RETURN 


USER WANT * 


YES 


* PHASE NAME 


VTOC 




X* AND INIT TO 


DISPLAY .* 




* FETCH 


*. .* 




* $$BODSPV 



INITIALIZE 
TO FETCH 
$$B0VDMP 



INIT SYMBOLIC 

UNIT AND 

BIN NO. FOR 

VTOC DUMP 

PHASE 



* IS * 

THIS A 

•D« TYPE 

MSG 



GET ADDR 

OF SYMBOLIC 

UNIT AND 

BIN NO. 



.* DID *. 

* OPERATOR 

REPLY WITH 
*. IGNORE . 



*RQ * ILLEGAL 
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Chart RQ. $$B0MSG2: Disk Open Error Message Writer, Phase 2 (Section 3 of 3) 



FILE 

OVERLAP 

SW ON 



MOVE 
•ILLEGAL 

RESPONSE' 

MSG TO 

OUTPUT AREA 



INIT CCB 

WITH CCW 

ADDR 



****C1******** 

MOVE A 'D' 

TO MSG 

RESPONSE 

CODE AREA 

(FOR DELETE) 



CLEAR 
SYSLOG 
TYPE-IN 

AREA 



GET ADDR 

OF CCB 

FOR 

SUPERVISOR 



.* IS *. 

* UNEXPIRED 

FILE TO BE 

*. DELETED . 



MOVE LNB 
OF ILLEGAL 

MSG TO 
SYSLOG CCW 



RESET 

TYPEWRITER 

CCW TO 

NO-OP 



* G4* 
WRITEMSG 



* SVC 7 

WAIT FOR 

I/O 
COMPLETE 



.* MSG OR *. YES 

. MSG 4M33A .* 

*. SWITCH ON.* 



RETURN 

TO CALLING 

ROUTINE 



WRNGPKSW .*. 


NEXTTEST .*. 


Gl *. 


G2 *. 




.* HAS *. 


.* WRONG *. YES 


.* OPERATOR *. NO 


*. PACK .#.... 


....X*. MOUNTED NEW .*.... 


*. SW ON .* 


*. PACK .» 



*«*#H1******** 
MOVE A'B' 

TO MSG 

RESPONSE 

CODE AREA 

(FOR BYPASS) 



* EXTENT 
TO BE 
*. BYPASSED 



» B3* 
SETINTSW 
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APPENDIX A: 



LABEL CROSS-REFERENCE LIST 



This appendix provides additional 


ADJSYS 


$$BOCP01 


QB 


information for servicing DOS logical IOCS 


ADJSYS 


$$BOCPll 


QH 


programs. 


It is primarily 


intended for the 


AGAIN 


$$BMSGWR 


LF 


reader with maintenance responsibilities. 


AGAIN 


$$BOCPMl 


RH 








AGAIN 


$$BOCPM2 


RH 


The following group of j 


flowchart labels 


AGAIN 


$$BOMT0M 


LE 


are macro 


language listing 


labels and do 


AGAIN 


$$BOMT0W 


LE 


not appear on assembly listings. 


AJALT 


$$BOCP01 


QB 








AJALT 


$$BOCPll 


QH 




Module 




ATLOADPT 


$$BOMT01 


KA 


Label 


or Phase 


Chart 


AUTOTERM 


$$BMSGWR 


LF 


.A4 


DIMOD 


NA 


AUTOTERM 


$$BOMT0M 


LE 


.BK2 


PRMOD 


FC 


AUTOTERM 


$$BOMT0W 


LE 


.BK3 


PRMOD 


FC 








.BK4 


PRMOD 


FE 


BACKSPCE 


$$BOMT03 


KF 


.BK5 


PRMOD 


FE 


BACKSPC2 


$$BOMT03 


KF 


.PI 8 


PRMOD 


FD 


BEGINRTN 


$$BCLOSP 


RD 


.P19 


PRMOD 


FD 


BEGINRTN 


$$BERRTN 


PA 


.P20 


PRMOD 


FD 


BKSP 


$$BCCPT1 


RA 


.P21 


PRMOD 


FD 


BKSP 


$$BOCPT2 


QV 


.P22 


PRMOD 


FD 


BUILDLBL 


$$BCCPT1 


RB 


.P23 


PRMOD 


FD 


BUILDLBL 


$$BOCPT2 


QW 


.P24 


PRMOD 


FD 


BUILDLBL 


$$BOMT03 


KF 


.P25 


PRMOD 


FD 


BYSTDUTL 


$$BCCPT1 


RA 


.P26 


PRMOD 


FD 








.P27 


PRMOD 


FD 


CALLMON 


$$BOUR01 


AB 


.P28 


PRMOD 


FD 


CALLMSG 


$$BOCP01 


QA 


.P30 


PRMOD 


FE 


CALLMSG1 


$$BOCP02 


QD 


.P33 


PRMOD 


FE 


CALLMSG1 


$$BOCP02 


QE 








CALLMSG1 


$$BOCPll 


QG 


.P34 


PRMOD 


FE 


CALLMSG1 


$$BOCP12 


QK 


.P35 


PRMOD 


FE 


CALOPN 


$$BOCPll 


QJ 


.P36 


PRMOD 


FC 


CALOPN1 


$$BOCP02 


QE 


.P45 


PRMOD 


FC 


CALOPN1 


$$BOCP12 


QL 


.P50 


PRMOD 


FC 


CBDUMP 


$$BJCOPT 


KN 


.P51 


PRMOD 


FC 


CCPTAPE 


$$BCCPT1 


QZ 


.P53 


PRMOD 


FC 


CD25202 


$$BCLOSP 


RE 


.P54 


PRMOD 


FC 


CD25402 


$$BCLOSP 


RE 


.P55 


PRMOD 


FD 


CHECK 


$$BCCPT1 


RB 


.P56 


PRMOD 


FD 


CHECK 


$$BCMR01 


DH 


.P61 


PRMOD 


FC 








.P62 


PRMOD 


FC 


CHECK 


$$BOCPT2 


QW 


.P67 


PRMOD 


FD 


CHECK 


$$BOMT02 


KD 


.P77 


PRMOD 


FE 


CHECKDAT 


$$BOMT06 


KK 


.TW0045 


MTMOD 


HA 


CHECKID 


$$BOMT01 


KB 


.TW0047 


MTMOD 


HA 


CHECKID 


$$BOMT02 


KD 


.TW045 


MTMOD 


JG 


CHKALC 


$$BCMT02 


KT 








CHKALC 


$$BCMT07 


LC 


The following flowchart 


labels are 


CHKIPT 


$$BJCOPT 


KM 


assembly 


listing labels. 




CHKLAB 


$$BOCPTl 


QM 








CHKLAB 


$$BOCPT2 


QT 


ABORTJOB 


$$BMSGWR 


LF 


CHKLP 


$$BOCPTl 


QS 


ABORTJOB 


$$BOCPMl 


RH 


CHKLP 


$$BOCPT2 


QY 


ABORTJOB 


$$BOCPMl 


RJ 


CHKMOR 


$$BOCP01 


QB 


ABORTJOB 


$$BOCPM2 


RH 


CHKMOR 


$$BOCP02 


QE 


ABORTJOB 


$$BOCPM2 


RJ 


CHKMOR 


$$BOCPll 


QH 


ABORTJOB 


$$BOMSGl 


RP 








ABORTJOB 


$$BOMT0M 


LE 


1 CHKMOR 


$$BOCP12 


QL 


ABORTJOB 


$$BOMT0W 


LE 


1 CHKPRTR 


$$BOUR01 


AB 


ADDBLANK 


$$BOMSGl 


RN 


1 CHKTM 


$$BOCPTl 


QM 


ADJINPUT 


$$BCCPT1 


QZ 


CHKTM 


$$BOCPT2 


QT 


ADJNOEOF 


$$BCCPT1 


QZ 


CHKTPM 


$$BJCOPT 


KN 
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CKDINPT 


$$BCCPT1 


QZ 


DOIO 


$$BCEOVl 


KQ 


CKMGTP 


$$BOCP01 


QC 


DONTBUMP 


$$BCMT02 


KU 


CKMGTP 


$$BOCP02 


QE 


DOUBLMSG 


$$BMSGWR 


LF 


CKMGTP 


$$BOCPll 


QJ 


DTFPHFLE 


$$BOMT01 


KA 


CKMGTP 


$$BOCP12 


QL 


DUMHDR1 


$$BOCPT2 


QW 


CKNXJB 


$$BCMT02 


KT 








CKNXJB 


$$BCMT07 


LC 


EOFBLDWT 


$$BCCPT1 


RB 


CKPTR 


$$BOCP01 


QC 


EOFSKIP 


$$BCCPT1 


RA 


CKPTR 


$$BOCP02 


QE 


ERRMSG 


$$BJCOPT 


KM 


CKPTR 


$$BOCP12 


QL 


ERROR 


$$BCCPT1 


RA 








ERROR 


$$BOCP01 


QA 


CKRDR 


$$BOCP01 


QA 


ERROR 


$$BOCP02 


QD 


CKRDR 


$$BOCP02 


QD 


ERROR 


$$BOCPll 


QG 


CKRST 


$$BOCPll 


QG 


ERROR 


$$B0CP12 


QK 


CKSYLNK 


$$BOCP01 


QB 


EXC 


$$BOCP02 


QF 


CKUDSM 


$$BJCOPT 


KM 


EXC 


$$BOCP12 


QL 


CLEAR 


$$BOMR01 


DG 


EXCP 


$$BCEOVl 


KQ 


CLEAROUT 


$$BOMSG2 


RQ 


EXCPRG 


$$BJCOPT 


KN 


CLOSECD 


$$BCLOSP 


RE 


EXEC 


$$BOCP01 


QC 


CLOSECP 


$$BCLOSP 


RD 








CLOSNXT 


$$BCCPT1 


RB 


EXEC 


$$BOCPll 


QJ 


COBOLWRT 


$$BOMT04 


KG 


EXIT 


$$BCCPT1 


RB 


COMPARE 


$$BOCPT2 


QU 


EXIT 


$$BOCPTl 


QP 


COMPARE 


$$BOMT03 


KF 


EXIT 


$$BOCPT2 


QX 


COMPARE 3 


$$BOMSGl 


RM 


EXIT 


$$BOOR01 


EY 


CONTINUE 


$$BCMT04 


KX 


EXITCLOS 


$$BCMT06 


LA 








EXITLAB 


$$BOCPTl 


QP 


CONTINUE 


$$BOCPMl 


RJ 


EXITLAB 


$$BOCPT2 


QX 


CONTINUE 


$$BOCPM2 


RJ 


EXITMON 


$$BCCPT1 


RB 


CONTINUO 


$$BOMT01 


KB 


EXITNLAB 


$$BOCPTl 


QP 


CONTINU1 


$$BOMT01 


KB 


EXITNLAB 


$$BOCPT2 


QX 


CONTINU2 


$$BOMT01 


KB 


EXITNLB 


$$BOCPTl 


QP 


CONTINU3 


$$BOMT01 


KB 


EXITNLB 


$$BOCPT2 


QX 


CONTINU4 


$$BOMT01 


KB 


EXITRTN 


$$BOMT06 


KK 


CONTINU5 


$$BOMT01 


KB 








CONTOPN 


$$BOUR01 


AA 


FCHMSG 


$$BCEOVl 


KP 


CONT1 


$$BCLOSP 


RF 


FETCH 


$$BOMSGl 


RP 


CONT1 


$$BERRTN 


PA 


FETCH 04 


$$BOMT03 


KF 


CONT2 


$$BCLOSP 


RF 


FILEOVLP 


$$BOMSGl 


RM 


CONT2 


$$BERRTN 


PA 


FILEOVLP 


$$BOMSGl 


RN 


CONT3 


$$BCLOSP 


RD 


FINCLS 


$$BCLOSP 


RD 


CONT3 


$$BERRTN 


PA 


FRMTBL 


$$BCEOVl 


KP 


CPDUMP 


$$BJCOPT 


KN 


FRSTINST 


$$BCMR01 


DH 


CPTAPE 


$$BOCPTl 


QM 


FRSTINST 


$$BMMR20 


DJ 


CPTAPEO 


$$BOCPT2 


QT 


FRSTINST 


$$BOMR01 


DG 


CP2520 


$$BCLOSP 


RD 


FSTM 


$$BOCPTl 


QR 


CUNAD 


$$BMMR20 


DJ 














GETCUU 


$$BOMSGl 


RL 


DEPATH1 


$$BOCPTl 


QM 


GETDATE 


$$BOMT03 


KE 


DETERM 


$$BCCPT1 


QZ 


GETDEFLT 


$$BOMT03 


KE 


DETERM 


$$BOCPTl 


QM 


GETDSPLY 


$$BOMSGl 


RP 


DETERM 


$$BOCPT2 


QT 


GETOPN 


$$BOCP02 


QE 


DETERMN 


$$BMSGWR 


LF 


GETOPN 


$$BOCPll 


QJ 


DETERMN 


$$BOCPMl 


RJ 


GETOPN 


$$BOCP12 


QL 


DETERMN 


$$BOCPM2 


RJ 


GOTOIO 


$$BJCOPT 


KK 


DETERMN 


$$BOMT0M 


LE 








DETERMN 


$$BOMT0W 


LE 


HDRBLD 


$$BOCPT2 


QW 


DETPATH 


$$BCCPT1 


QZ 


HDRCHK 


$$BOCPTl 


QR 


DETPATH 


$$BOCPTl 


QM 


HDRCHKX 


$$BCOPTl 


QR 


DETPATH 


$$BOCPT2 


QT 


HDKCHK1 


$$BOCPTi 


Qk 








HDRCHK2 


$$BOCPTl 


QR 


DISKERR 


$$BERRTN 


PA 


HDRMSG 


$$BOCPTl 


QR 


DISKS 


$$BOCP01 


QA 


HDRWRITE 


$$BOCPT2 


QW 


DISKS 


$$BOCPll 


QG 








DISK1 


$$BCLOSP 


RF 


IGNORE 


$$BOUR01 


AB 


DISK2 


$$BCLOSP 


RF 


IJCEXXXX 


CDMOD 


BF 


DISK4 


$$BCLOSP 


RF 


IJCEXXXX 


CDMOD 


BG 


DISK 5 


$$BCLOSP 


RD 


IJCMBXXX 


CDMOD 


BA 
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IJCMCXXX 


CDMOD 


IJCMCXXX 


CDMOD 


IJCMDXXX 


CDMOD 


IJCMEXXX 


CDMOD 


IJCMEXXX 


CDMOD 


IJCMRXXX 


CDMOD 


IJCPKXXX 


CDMOD 


IJCPNXXX 


CDMOD 


IJCPNXXX 


CDMOD 


IJCPYXXX 


CDMOD 


IJCPYXXX 


CDMOD 


IJCPZXXX 


CDMOD 


IJCRAXXX 


CDMOD 


IJCRBXXX 


CDMOD 


IJCRTXXX 


CDMOD 


IJCRVXXX 


CDMOD 


IJCR9XXX 


CDMOD 


IJCZ4XXX 


CDMOD 


IJCZ4XXX 


CDMOD 


IJCOOXXX 


CDMOD 


IJDPKXXX 


PRMOD 


IJDPMXXX 


PRMOD 


IJDQOXXX 


PRMOD 


IJDQ1XXX 


PRMOD 


IJE1END 


PTMOD 


IJE1TLST 


PTMOD 


IJElWLR 


PTMOD 


IJE2COMP 


PTMOD 


IJE2END 


PTMOD 


IJE2TLST 


PTMOD 


IJE3CLR2 


PTMOD 


IJE3END 


PTMOD 


IJE3EOFR 


PTMOD 


IJE3EXIT 


PTMOD 


IJE3LNXT 


PTMOD 


IJE3MURM 


PTMOD 


IJE3READ 


PTMOD 


IJE3RRED 


PTMOD 


IJE3STSD 


PTMOD 


IJE3STTR 


PTMOD 


IJE4CLR2 


PTMOD 


IJE4EXIT 


PTMOD 


IJE4STSD 


PTMOD 


IJE4STTR 


PTMOD 


IJFFCNT 


MTMOD 


IJFFCON 


MTMOD 


IJFFDBL 


MTMOD 


IJFFEFE 


MTMOD 


IJFFER1 


MTMOD 


IJFFER2 


MTMOD 


IJFFEX1 


MTMOD 


IJFFEX1A 


MTMOD 


IJFFEX3 


MTMOD 


IJFFFEE 


MTMOD 


IJFFFEO 


MTMOD 


IJFFGBC 


MTMOD 


IJFFGET 


MTMOD 


IJFFHRU 


MTMOD 


IJFFHU2 


MTMOD 


IJFFIGN 


MTMOD 


IJFFMAI 


MTMOD 


IJFFNOIF 


MTMOD 


IJFFPUT 


MTMOD 


IJFFRBK 


MTMOD 



BC 


IJFFRCK 


MTMOD 


BD 


IJFFRCT 


MTMOD 


BH 


IJFFREL 


MTMOD 


BC 


IJFFRST 


MTMOD 


BD 


IJFFSTD 


MTMOD 


BH 


IJFFTET 


MTMOD 


BA 


IJFFTI 


MTMOD 


BF 






BG 






BF 


IJFFTIA 


MTMOD 


BG 


IJFFTRU 


MTMOD 




IJFFWAI 


MTMOD 


BE 


IJFFWMV 


MTMOD 


BB 


IJFFWRK 


MTMOD 


BB 


IJFFWRK 


MTMOD 


BE 


IJFFXCH 


MTMOD 


BB 


IJFUCNT 


MTMOD 


BA 


IJFUEFE 


MTMOD 


BC 


IJFUER1 


MTMOD 


BD 


IJFUER2 


MTMOD 


BB 


IJFUEX1 


MTMOD 


FA 


IJFUEX3 


MTMOD 


FB 


IJFUEX5 


MTMOD 


FB 


IJFUFEE 


MTMOD 


FB 






GA 


IJFUFEO 


MTMOD 


GA 


IJFUFTI 


MTMOD 




IJFUGBC 


MTMOD 


GA 


IJFUGET 


MTMOD 


GB 


IJFUHRU 


MTMOD 


GB 


IJFUHU2 


MTMOD 


GB 


IJFUIGN 


MTMOD 


GC 


IJFUPUT 


MTMOD 


GC 


IJFURCK 


MTMOD 


GC 


IJFURCT 


MTMOD 


GC 


IJFURDER 


MTMOD 


GC 


IJFURST 


MTMOD 


GC 


IJFUWIN 


MTMOD 


GC 


IJFUWMV 


MTMOD 


GD 


IJFUWRK 


MTMOD 


GC 






GC 


IJFUXCH 


MTMOD 


GE 


IJFVBDB 


MTMOD 




IJFVCNT 


MTMOD 


GE 


IJFVDBL 


MTMOD 


GE 


IJFVEFE 


MTMOD 


GE 


IJFVER1 


MTMOD 


HB 


IJFVER2 


MTMOD 


HW 


IJFVEX1 


MTMOD 


HT 


IJFVEX3 


MTMOD 


HY 


IJFVFEE 


MTMOD 


HX 


IJFVFEO 


MTMOD 


HX 


IJFVFTI 


MTMOD 


HW 


IJFVGBC 


MTMOD 


HW 


IJFVGET 


MTMOD 


HE 


IJFVGTB 


MTMOD 


HY 






HD 


IJFVGTR 


MTMOD 


HW 


IJFVHRU 


MTMOD 




IJFVHU2 


MTMOD 


HE 


IJFVIG1 


MTMOD 


HW 


IJFVIG2 


MTMOD 


HW 


IJFVMAI 


MTMOD 


HW 


I JFVMOV 


MTMOD 


HW 


IJFVNOIF 


MTMOD 


HY 


IJFVOEX 


MTMOD 


HM 


IJFVOUB 


MTMOD 


HY 


IJFVPUT 


MTMOD 
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JF 
HW 
HQ 
HU 
HW 
HW 
HW 



HW 
HR 
HY 
HU 
HU 
HU 
JF 
HB 
JE 
JD 
JD 
JC 
HG 
JC 
JE 

HD 
JC 
JC 
HE 
JC 
JC 
JC 
HN 
JF 
JC 
JC 
HV 
HV 
HV 
HV 

JF 
HG 
HB 
HT 
JA 
HF 
JA 
HZ 
HF 
JA 
HD 
JB 
HZ 
HE 
HF 

HF 
HZ 
HZ 
HZ 
HF 
HZ 
HU 
JA 
HU 
HM 
HM 



IJFVRCK 


MTMOD 


IJFVRCT 


MTMOD 


IJFVREL 


MTMOD 


IJFVRST 


MTMOD 


IJFVSTW 


MTMOD 


IJFVTOV 


MTMOD 


IJFVTRU 


MTMOD 


IJFVTST 


MTMOD 


IJFVUBL 


MTMOD 


IJFVWRK 


MTMOD 


IJFVXCH 


MTMOD 


IJFWCHEK 


MTMOD 


UFWCOMP 


MTMOD 


IJFWCTL 


MTMOD 


IJFWEXCP 


MTMOD 


IJFWEXIT 


MTMOD 


IJFWFSF 


MTMOD 


IJFWPNTR 


MTMOD 


IJFWPNTW 


MTMOD 


IJFWPRCS 


MTMOD 


IJFWREAD 


MTMOD 


IJFWRSME 


MTMOD 


IJFWRTRN 


MTMOD 


IJFWRW 


MTMOD 


IJFWSBST 


MTMOD 


IJFWSPNT 


MTMOD 


IJFWSTOR 


MTMOD 


IJFWTEST 


MTMOD 


IJFWTEST 


MTMOD 


IJFWTIXT 


MTMOD 


IJFWTIXT 


MTMOD 


IJFWTRC 


MTMOD 


IJFWWRIT 


MTMOD 


IJFXBK 


MTMOD 


IJJCAL2 


CPMOD 


IJJCAL2 


CPMOD 


IJJCAL2 


CPMOD 


IJJCEXEC 


CPMOD 


IJJCFOND 


CPMOD 


IJJCFOND 


CPMOD 


IJJCFOND 


CPMOD 


IJJCNDSK 


CPMOD 


IJJCNDSK 


CPMOD 


IJJCNOEX 


CPMOD 


IJJCNOEX 


CPMOD 


IJJCPCAL 


CPMOD 


IJJCPCAL 


CPMOD 


IJJCPCAL 


CPMOD 


IJJCPDSK 


CPMOD 


IJJCPDSK 


CPMOD 


IJJCPDSK 


CPMOD 


IJJCPDSK 


CPMOD 


IJJCPDSK 


CPMOD 


IJJCPGP 


CPMOD 


IJJCPGP 


CPMOD 


IJJCPGP 


CPMOD 


IJJCPIO 


CPMOD 


IJJCPIO 


CPMOD 


IJJCPIO 


CPMOD 


IJJCPIO 


CPMOD 


IJJCPLUP 


CPMOD 


IJJCPLUP 


CPMOD 


IJJCPSLD 


CPMOD 


IJJCPSLO 


CPMOD 



JF 
HZ 
HQ 
HU 

HE 
HZ 
HR 
HG 
HU 
HU 
JF 
HA 
JG 
HC 
JG 
HA 
JG 
HJ 
HL 

HA 
HP 
HA 
HA 
JG 
HA 
HK 
JG 
HJ 
HL 
HJ 
HL 
JG 
HS 
HQ 

MF 
MH 
MK 
MD 
ME 
MG 
MJ 
MB 
MC 
MB 
MC 
ME 
MG 
MJ 
MB 

MC 
MF 
MH 
MK 
MA 
MD 
MG 
MB 
MC 
ME 
MG 
ME 
MG 
MD 
MD 



IJJCPST 


CPMOD 


IJJCPST 


CPMOD 


IJJCPSTO 


CPMOD 


IJJCPTOV 


CPMOD 


IJJCPUNX 


CPMOD 


IJJCPWDE 


CPMOD 


IJJCPWDE 


CPMOD 


IJJCPWDE 


CPMOD 


IJJC1RT 


CPMOD 


IJJC1RT 


CPMOD 


IJJC2SLO 


CPMOD 


IJJERRTN 


CPMOD 


IJJEXEC 


CPMOD 


IJJE1XXX 


DIMOD 


IJJE1XXX 


DIMOD 


IJJE1XXX 


DIMOD 


IJJE1XXX 


DIMOD 


IJJE5XXX 


DIMOD 


IJJE5XXX 


DIMOD 


IJJE5XXX 


DIMOD 


IJJE6XXX 


DIMOD 


IJJF3XXX 


DIMOD 


IJJF3XXX 


DIMOD 


IJJF5XXX 


DIMOD 


IJJF5XXX 


DIMOD 


IJJF5XXX 


DIMOD 


IJJF8XXX 


DIMOD 


IJJF8XXX 


DIMOD 


IJJF9XXX 


DIMOD 


IJJG1XXX 


DIMOD 


IJJG3XXX 


DIMOD 


IJJG3XXX 


DIMOD 


IJJG6XXX 


DIMOD 


IJJG8XXX 


DIMOD 


IJJH4XXX 


DIMOD 


IJJH5XXX 


DIMOD 


IJJH8XXX 


DIMOD 


IJJH8XXX 


DIMOD 


IJJIOXXX 


DIMOD 


IJJIOXXX 


DIMOD 


IJJIOXXX 


DIMOD 


IJJIOXXX 


DIMOD 


IJJJ1XXX 


DIMOD 


IJJJ1XXX 


DIMOD 


IJJJ1XXX 


DIMOD 


IJJJ1XXX 


DIMOD 


IJJJ6XXX 


DIMOD 


IJJJ7XXX 


DIMOD 


IJJJ7XXX 


DIMOD 


IJJJ8XXX 


DIMOD 


IJJJ8XXX 


DIMOD 


IJJJ8XXX 


DIMOD 


IJJJ8XXX 


DIMOD 


IJJJ8XXX 


DIMOD 


IJJK5XXX 


DIMOD 


jj_ xj «jf a\ ,y j\j\4% 


nTurvn 

UJLL'IKJU 


IJJK5XXX 


DIMOD 


IJJK5XXX 


DIMOD 


IJJK6XXX 


DIMOD 


IJJK6XXX 


DIMOD 


IJJK6XXX 


DIMOD 


IJJK8XXX 


DIMOD 


IJJK8XXX 


DIMOD 



MA 
MD 
MJ 
MD 
MD 
ME 
MG 
MJ 
MG 
MJ 
MB 
ME 
MA 
NA 
NE 



NH 
NJ 
NC 
NH 
NJ 
NE 
NF 
NJ 
NC 
NH 
NJ 
NA 
NF 
NF 
NE 

NA 
NK 
NE 
NE 
NE 
NE 
NC 
NK 
NA 
NC 
NF 
NJ 
NA 
NC 
NF 

NJ 
NH 
NH 
NJ 
NA 
ND 
NF 
NH 
NJ 
NB 

VTT"\ 

NG 
NK 
NB 
ND 

NK 
NB 
ND 
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IJJK8XXX 


DIMOD 


IJJK8XXX 


DIMOD 


IJJL5XXX 


DIMOD 


IJJL5XXX 


DIMOD 


IJJL5XXX 


DIMOD 


IJJMOV 


CPMOD 


IJJMOV 


CPMOD 


IJJMOV 


CPMOD 


IJJNOSK 


CPMOD 


IJJNOSK 


CPMOD 


IJJNOSK 


CPMOD 


IJJPWT 


CPMOD 


IJJPWT 


CPMOD 


IJJRTRN 


CPMOD 


IJJRTRN 


CPMOD 


IJJSAVE 


CPMOD 


IJJSAVE 


CPMOD 


IJJSAVE 


CPMOD 


IJJTEST 


CPMOD 


IJJUNITX 


CPMOD 


IJJUNITX 


CPMOD 


IJJWCHED 


CPMOD 


IJJWCHED 


CPMOD 


IJJWCHED 


CPMOD 


IJJWINX 


CPMOD 


IJJWINX 


CPMOD 


IJJ2SLO 


CPMOD 


IJJ48XXX 


DIMOD 


IJMABXXX 


ORMOD 


IJMA1XXX 


ORMOD 


IJMA1XXX 


ORMOD 


IJMA2XXX 


ORMOD 


IJMA2XXX 


ORMOD 


IJMBAXXX 


ORMOD 


IJMBDXXX 


ORMOD 


IJMBEXXX 


ORMOD 


IJMBFXXX 


ORMOD 


IJMBIXXX 


ORMOD 


IJMBJXXX 


ORMOD 


IJMBMXXX 


ORMOD 


IJMBRXXX 


ORMOD 


IJMCEXXX 


ORMOD 


IJMCLXXX 


ORMOD 


IJMDLXXX 


ORMOD 


IJMDRXXX 


ORMOD 


IJMDYXXX 


ORMOD 


IJME3XXX 


ORMOD 


IJME4XXX 


ORMOD 


IJMGBXXX 


ORMOD 


IJMGOXXX 


ORMOD 


IJMM2XXX 


ORMOD 


IJMM3XXX 


ORMOD 


IJMM4XXX 


ORMOD 


IJMRDXXX 


ORMOD 


IJMRFXXX 


ORMOD 


IJMRGXXX 


ORMOD 


IJMRLXXX 


ORMOD 


IJMRTXXX 


ORMOD 


IJMRUXXX 


ORMOD 


IJMRXXXX 


ORMOD 


IJMR1XXX 


ORMOD 


IJMR2XXX 


ORMOD 


IJMR3XXX 


ORMOD 


IJMRDXXX 


ORMOD 



NG 
NK 
NC 
NH 
NJ 
ME 
MG 
MJ 
ME 
MG 
MJ 
MG 

MJ 
MA 
MD 
ME 
MG 
MJ 
MA 
MG 
MJ 
MF 
MH 
MK 
MB 
MC 
MC 

NA 
EU 
EJ 
ER 
EE 
EE 
EK 
EK 
EJ 
EJ 
EJ 
EJ 
EJ 
EV 
EA 
EW 

ED 
ED 
ED 
EK 
EK 
EE 
EU 
EU 
EU 
EV 
EP 
EV 
EV 
ET 
EW 
EV 
EW 

ET 
ES 
ET 
ET 



IJMR5XXX 


ORMOD 


IJMR8XXX 


ORMOD 


IJMR9XXX 


ORMOD 


IJMSAXXX 


ORMOD 


IJMSAXXX 


ORMOD 


IJMSAXXX 


ORMOD 


IJMSBXXX 


ORMOD 


IJMSBXXX 


ORMOD 


IJMSBXXX 


ORMOD 


IJMSBXXX 


ORMOD 


IJMSCXXX 


ORMOD 


IJMSCXXX 


ORMOD 


IJMSCXXX 


ORMOD 


IJMSCXXX 


ORMOD 


IJMSKXXX 


ORMOD 


IJMSQXXX 


ORMOD 


IJMSQXXX 


ORMOD 


IJMSQXXX 


ORMOD 


IJMTAXXX 


ORMOD 


IJMTAXXX 


ORMOD 


IJMTAXXX 


ORMOD 


IJMTBXXX 


ORMOD 


IJMTBXXX 


ORMOD 


IJMTCXXX 


ORMOD 


IJMTCXXX 


ORMOD 


IJMTDXXX 


ORMOD 


IJMTDXXX 


ORMOD 


IJMTEXXX 


ORMOD 


IJMTEXXX 


ORMOD 


IJMTFXXX 


ORMOD 


IJMTFXXX 


ORMOD 


IJMTFXXX 


ORMOD 


IJMTIXXX 


ORMOD 


IJMTJXXX 


ORMOD 


IJMTKXXX 


ORMOD 


IJMTLXXX 


ORMOD 


IJMTNXXX 


ORMOD 


IJMTOXXX 


ORMOD 


IJMTOXXX 


ORMOD 


IJMTOXXX 


ORMOD 


IJMTOXXX 


ORMOD 


IJMTIXXX 


ORMOD 


IJMTIXXX 


ORMOD 


IJMT2XXX 


ORMOD 


IJMT2XXX 


ORMOD 


IJMT3XXX 


ORMOD 


IJMT3XXX 


ORMOD 


IJMT5XXX 


ORMOD 


IJMT6XXX 


ORMOD 


IJMT7XXX 


ORMOD 


IJMT8XXX 


ORMOD 


IJMT8XXX 


ORMOD 


IJMT9XXX 


ORMOD 


IJMT9XXX 


ORMOD 


IJMT9XXX 


ORMOD 


IJMUAXXX 


ORMOD 


IJMUBXXX 


ORMOD 


IJMUCXXX 


ORMOD 


IJMUTXXX 


ORMOD 


IJMUSXXX 


ORMOD 


IJMUTXXX 


ORMOD 


IJMUUXXX 


ORMOD 


IJMUVXXX 


ORMOD 


IJMUWXXX 


ORMOD 
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ES 
ES 
ET 
EH 
EN 
EX 
EC 
EH 
EN 
EX 
EC 

EH 
EN 
EX 
EA 
EE 
EL 
EU 
EE 
EU 
EL 
EE 
EV 
EF 
EM 
EF 
EM 

EF 
EM 
EF 
EM 
EW 
EG 
EE 
EE 
EE 
EG 
EG 
EE 
EK 
EU 
EP 

EQ 
EP 
EQ 
EP 
EQ 
EB 
EA 
EA 
EK 
EU 
EE 
EL 
EU 
EW 
EW 
EW 
EW 
EW 
EW 

EW 
EW 
EW 



IJMWFXXX 


ORMOD 


EV 


INDISC 


$$BOCP01 


QB 


IJMWTXXX 


ORMOD 


EU 


INDISC 


$$B0CP11 


QH 


IJMWWXXX 


ORMOD 


EV 


INDPCH 


$$BOCP01 


QA 


IJMZBXXX 


ORMOD 


EG 


INDPCH 


$$BOCP02 


QD 


IJMZCXXX 


ORMOD 


EG 


INDPCH 


$$B0CP11 


QG 


IJMZDXXX 


ORMOD 


EG 


INDPCH 


$$B0CP12 


QK 


IJMZEXXX 


ORMOD 


EG 


INDPCH1 


$$BOCP01 


QA 


IJMZFXXX 


ORMOD 


EG 


INDPCH1 


$$BOCP02 


QD 


IJMZJXXX 


ORMOD 


EG 


INDPCH1 


$$B0CP11 


QG 


IJMZKXXX 


ORMOD 


EG 








IJMZLXXX 


ORMOD 


EG 


INDPCH1 


$$B0CP12 


QK 


IJMZQXXX 


ORMOD 


EB 


INIT 


$$BOMT04 


KG 


IJM10XXX 


ORMOD 


EU 


INITDUMP 


$$B0MSG1 


RP 








INITIAL 


$$BOCP01 


QC 


IJM2MXXX 


ORMOD 


EC 


INITIAL 


$$BOCP02 


QE 


IJUADONE 


MRMOD 


DA 


INITIATE 


$$BMSGWR 


LF 


I JU AGAIN 


MRMOD 


DF 


INITIATE 


$$B0CPM1 


RH 


IJUCALLW 


MRMOD 


DB 


INITIATE 


$$B0CPM2 


RH 


IJUCHECK 


MRMOD 


DA 


INITIATE 


$$BOMT0M 


LE 


IJUCHEK 


MRMOD 


DA 


INITIATE 


$$BOMT0W 


LE 


IJUCKMES 


MRMOD 


DC 


INITREG 


$$B0MSG1 


RM 


IJUCLBUF 


MRMOD 


DA 


INIT14 


$$BOCP01 


QB 


IJUCLOEX 


MRMOD 


DB 


INOM 


$$BOCP01 


QA 


IJUDISDL 


MRMOD 


DD 


INOM 


$$B0CP11 


QG 


IJUDISEN 


MRMOD 


DD 


INPUTCK 


$$BCMT02 


KU 


IJUENDTS 


MRMOD 


DC 








IJUENGCK 


MRMOD 


DB 


INWKFL 


$$BOCP01 


QC 


IJUENLST 


MRMOD 


DF 


INWKFL 


$$BOCP02 


QE 


IJUEXIT 


MRMOD 


DF 


INWKFL 


$$B0CP11 


QJ 








INWKFL 


$$B0CP12 


QL 


IJUFEED 


MRMOD 


DB 


10 




RC 


IJUFETCH 


MRMOD 


DC 


IOCCBKSP 


$$BCMT05 


KZ 


IJUGETCK 


MRMOD 


DA 


IOCCEFSW 


$$BCMT02 


KT 


IJUGEXIT 


MRMOD 


DA 


IOCCEFSW 


$$BCMT04 


KW 


IJUINCR 


MRMOD 


DB 


IOCCEFSW 


$$BCMT05 


KY 


IJUINIT 


MRMOD 


DA 


IOCCEOVT 


$$BCMT05 


KZ 


IJULITE 


MRMOD 


DE 


IOCCLBST 


$$BCMT04 


KW 


IJULOAD 


MRMOD 


DA 


IOCCLBST 


$$BCMT05 


KZ 


IJULOUT 


MRMOD 


DE 


IOCCOUTF 


$$BCMT05 


KY 


IJUNXTBF 


MRMOD 


DB 


IOCCPART 


$$BCMT05 


KY 


IJUNXTLT 


MRMOD 


DE 


IOCCREWT 


$$BCMT04 


KW 


IJUOLDNW 


MRMOD 


DA 








IJUPROC 


MRMOD 


DE 


IOCCREWX 


$$BCMT05 


KY 


IJUPSTCF 


MRMOD 


DB 


IOCCRWTP 


$$BCMT04 


KW 


IJUPSTOV 


MRMOD 


DB 


IOCCRWTP 


$$BCMT05 


KY 








I0CCSWT1 


$$BCMT04 


KX 


IJUREAD 


MRMOD 


DA 


I0CCSWT1 


$$BCMT05 


KZ 


IJUREGAD 


MRMOD 


DA 


IOCCWRIT 


$$BCMTOU 


KW 


IJURETRY 


MRMOD 


DF 


IOCCWRIT 


$$BCMT05 


KZ 


IJUSETPT 


MRMOD 


DA 


IOCCWRTT 


$$BCMT04 


KX 


IJUSHIFT 


MRMOD 


DE 


IOCCWRTT 


$$BCMT05 


KZ 


IJUSING 


MRMOD 


DE 


IOCCXTUR 


$$BCMT04 


KX 


IJUTDSN 


MRMOD 


DC 


IOCCXTUR 


$$BCMT05 


KZ 


IJUTSTAS 


MRMOD 


DB 


I0CEA1TD 


$$BCMT01 


KR 


IJUTSTFC 


MRMOD 


DF 


IOCEDONE 


$$BCMT01 


KR 


IJUTSTRF 


MRMOD 


DB 


IOCENORW 


$$BCMT01 


KR 


IJUTTRFC 


MRMOD 


DF 


IOCENTRY 


$$BCMT03 


KV 


IJUTUE 


MRMOD 


DC 








IJUWATTF 


MRMOD 


DF 


*rr»r;T?r\TpoT/ 




KR 


IJUXCPEG 


MRMOD 


DB 


IOCEOUTT 


$$BCMT03 


KV 


IJZXXXXX 


DTFCN 


CA 


IOCEOVOP 


$$BCMT01 


KR 








IOCEOVSW 


$$BCMT01 


KR 


IJ2MXXXX 


DTFCN 


CB 


IOCERBTP 


$$BCMT03 


KV 


IJ20XXXX 


DTFCN 


CB 


IOCEREOP 


$$BCMT01 


KR 


IJ2PXXXX 


DTFCN 


CA 


IOCEREWT 


$$BCMT01 


KS 


IJ2RXXXX 


DTFCN 


CA 


IOCERTAP 


$$BCMT01 


KS 


ILLEGAL 


$$BOMSG2 


RQ 


IOCESBYT 


$$BCMT03 


KV 


INCORE 


$$BOMSGl 


RN 


IOCESETR 


$$BCMT01 


KS 
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I0CESKP4 


$$BCMT01 


KS 


MGTPOP 


$$BOCP02 


QE 


IOCESTDL 


$$BCMT01 


KR 


MGTPOP 


$$BOCPll 


QJ 


IOCESTDL 


$$BCMT03 


KV 


MGTPOP 


$$B0CP12 


QL 


IOCESWCH 


$$BCMT03 


KV 


MOVE 


$$BCMT04 


KW 


IOCETEST 


$$BCMT01 


KR 


MOVE 


$$BCMT05 


KY 








MOVE 


$$BOMT03 


KF 


IOCEUPKK 


$$BCMT01 


KS 


MOVECYL 


$$BCEOVl 


KP 


IOCEXTED 


$$BCMT01 


KR 


MOVEHDR 


$$BOCPT2 


QW 


IOCOBNOL 


$$BOMT05 


KJ 


MOVEMSG 


$$BOMSGl 


RN 


IOCONOLB 


$$BOMT05 


KH 


MSG 


$$BCMT07 


LC 


IOCONSTD 


$$BOMT05 


KH 


MSGEXIT 


$$BOCPTl 


QP 


IOCOPNFL 


$$BOMT05 


KH 








IOCORBNS 


$$BOMT05 


KJ 








IOCORDBK 


$$BOMT05 


KJ 


MSGROUT1 


$$BOMSGl 


RL 


IOCOREAD 


$$BOMT05 


KH 


MSGROUT2 


$$BOMSGl 


RN 


IOCOREDB 


$$BOMT05 


KJ 


MSGWRITE 


$$BCMT07 


LC 


IOCORFWD 


$$BOMT05 


KJ 


MSGWRITE 


$$BJCOPT 


KN 


IOCOSBLC 


$$BOMT05 


KH 


MSGWRITE 


$$BOCPTl 


QN 


IOCOTMCK 


$$BOMT05 


KJ 


MSGWRITE 


$$BOCPT2 


QX 


IOCOULAB 


$$BOMT05 


KH 


MSG05SW 


$$BOMSG2 


RQ 


IOCOWROP 


$$BOMT05 


KH 


MSG10A 


$$BOMT03 


KE 








MSG11A 


$$BOMT01 


KA 


IPTCHK 


$$BJCOPT 


KM 


MSG12A 


$$BOCPTl 


QN 


ISADRINF 


$$BCMT02 


KT 


MSG12A 


$$BOCPT2 


QU 


ISDONE 


$$BOMT02 


KD 


MSG12A 


$$BOMT01 


KA 


ISDONE 


$$BOMT04 


KG 


MSG12A 


$$BOMT03 


KF 


ISDTFPH 


$$BOMT01 


KG 


MSG13D 


$$BOCPTl 


QP 


ISLOADPT 


$$BOMT01 


KA 


MSG13D 


$$BOMT01 


KA 


ISLOADPT 


$$BOMT03 


KE 


MSG14A 


$$BOCPTl 


QN 


ISOPEN 


$$BOMT01 


KC 


MSG14A 


$$BOMT01 


KB 


ISOPEN 


$$BOMT03 


KF 


MSG15A 


$$BOCPTl 


QR 


ISREWIND 


$$BOMT01 


KA 








ISV3 


$$BCMT02 


KT 








IS7TRK 


$$BJCOPT 


KM 


MSG15A 


$$BOMT01 


KB 








MSG16A 


$$BOCPTl 


QR 


JCTEXIT 


$$BOMSGl 


RP 


MSG16A 


$$BOMT01 


KB 








MSG17D 


$$BOMT02 


KD 


LABELCHK 


$$BOMT01 


KC 


MSG18D 


$$BOMT02 


KD 


LABELCHK 


$$BOMT02 


KD 


MSG19A 


$$BOCPT2 


QV 


LABFND 


$$BOCPTl 


QS 


MSG19A 


$$BOMT03 


KF 


LABFND 


$$BOCPT2 


QY 


MSG19A 


$$BOMT06 


KK 


LABLD 


$$BOCPTl 


QM 


MSG23D 


$$BOMT02 


KD 


LABLD 


$$BOCPT2 


QT 


MSG3LD 


$$BCMT01 


KS 


LASTOPN 


$$BOUR01 


AB 


MSG30A 


$$BCMT01 


KR 


LDIOREG 


$$BOCP01 


QC 


MSG31D 


$$BCMT03 


KV 


LDIOREG 


$$BOCP02 


QF 


MSG32D 


$$BOCPTl 


QR 


LDIOREG 


$$BOCPll 


QJ 


MSG32D 


$$BOMT01 


KB 


LDIOREG 


$$BOCP12 


QL 


MSG33D 


$$BOCPTl 


QR 


LEGAL1 


$$BOCPMl 


RJ 


MSG33D 


$$BOMT01 


KB 


LEGAL1 


$$BOCPM2 


RJ 


MSG4184D 


$$BOCPT2 


QX 








MSG44A 


$$BOCPT2 


QY 


LEGAL2 


$$BOCPMl 


RJ 


MSG83I 


$$BCMT07 


LB 


LEGAL2 


$$BOCPM2 


RJ 


MSG83I 


$$BJCOPT 


KK 


LEGAL3 


$$BOCPMl 


RJ 








AjJc»vyi\JLs^5 


^ ^ BOC PM d. 


RJ 


NEXTTEST 


$$BOMSG2 


RQ 


LOADPHAS 


$$BOMSGl 


RN 


NOALT 


$$BCMT02 


KT 


LOADREG 


$$BOMSGl 


RM 


NOALT 


$$BCMT07 


LC 


LOADWORK 


$$BOMSGl 


RL 


NOANSWER 


$$BMSGWR 


LF 


LOOP1 


$$BOCPMl 


RH 


NOANSWER 


$$BOMT0M 


LE 


LOOP1 


$$BOCPM2 


RH 


NOANSWER 


$$BOMT0W 


LE 


LOOP 2 


$$BOCPMl 


RJ 


NOCTLGHR 


$$BOUR01 


AA 


LOOP 2 


$$BOCPM2 


RJ 


NODEFALT 


$$BCCPT1 


RB 


LUBXXX 


$$BOMSGl 


RL 


NODEFALT 


$$BOCPT2 


QW 








NOHDR 


$$BOOR01 


EY 


MDRSBY 


$$BCMT02 


KT 


NOMSG 


$$BOCP01 


QA 


MDRSBY 


$$BCMT07 


LC 


NOMSG 


$$BOCP02 


QD 


MESSG5 


$$BOMSGl 


RN 


NOMSG 


$$BOCPll 


QG 


MGTPOP 


$$BOCP01 


QC 


NOMSG 


$$BOCP12 


QK 
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NOP 


$$BMSGWR 


LF 


P2540 


$$BOCP02 


QD 


NOP 


$$BOCPMl 


RH 


RDAGAIN 


$$BOMT06 


KK 


NOP 


$$BOCPM2 


RH 








NOP 


$$BOMT0M 


LE 


RDDISK 




RC 


NOP 


$$BOMT0W 


LE 


RDFRWRD 


$$BOOR01 


EY 


NORETURN 


$$BCMT07 


LB 


RDTPLAB 


$$BCCPT1 


RA 


NOREWUN 


$$BCMT07 


LB 


READ 


$$BOCPMl 


RK 


NOTBLANK 


$$BCCPT1 


RB 


READ 


$$BOCPM2 


RK 


NOTBLANK 


$$BCMT04 


KW 


READAGAN 


$$BOMT02 


KD 


NOTBLANK 


$$BCMT05 


KY 


READBK 


$$BOMT02 


KD 


NOTBLANK 


$$BOCPT2 


QW 


READLABL 


$$BOMT01 


KC 


NOTLEGAL 


$$BMSGWR 


LF 


READMSG 


$$BOMSGl 


RP 


NOTLEGAL 


$$BOCPMl 


RJ 


READTAPE 


$$BOMT01 


KA 


NOTLEGAL 


$$BOCPM2 


RJ 


READ3TM 


$$BOMT01 


KB 








REINIT 


$$BOCPTl 


QP 


NOTLEGAL 


$$BOMT0M 


LE 


RELOC 


$$BCEOVl 


KP 


NOTLEGAL 


$$BOMT0W 


LE 


RELOCATE 


$$BOMT01 


KA 


NOTOPEN 


$$BOMT04 


KG 


REPCHCP1 


$$BCLOSP 


RF 


NOVARY 


$$BOUR01 


AA 








NOVOLO 


$$BOCPT2 


QW 


REPCHCP2 


$$BCLOSP 


RF 


NOVOL1 


$$BOCPTl 


QN 


REPUNCH 


$$BERRTN 


PA 


NOXPIRCK 


$$BOCPT2 


QV 


RESET 


$$BOMT01 


KC 


NREWIND 


$$BOMT06 


KK 


RESETCCB 


$$BOMT05 


KH 


NRF 


$$BCCPT1 


RA 


RESTORE 


$$BCLOSP 


RD 


NRF 


$$BOCPTl 


QS 


RESTORE 


$$BOCPTl 


QN 


NRF 


$$BOCPT2 


QY 


RESTORE2 


$$BCLOSP 


RE 


NXTALT 


$$BCMT02 


KT 


RETMON 


$$BCLOSP 


RD 


NXTALT 


$$BCMT07 


LB 


RETMON 


$$BOCP02 


QE 


NXTFLD 


$$BOCPTl 


QR 


RETMON 


$$BOCPll 


QH 


NXTJIB 


$$BCMT02 


KT 


RETRYMSG 


$$BCLOSP 


RG 


NXTJIB 


$$BCMT07 


LC 


RETRYMSG 


$$BERRTN 


PA 








RETURN 


$$BCLOSP 


RD 


OLDCARD 


$$BCMT04 


KW 








OLDCARD 


$$BOMT03 


KE 


RETURN 


$$BCMT02 


KU 


OPENINIT 


$$BCCPT1 


QZ 


RETURNED 


$$BCMT07 


LB 


OPENNXT 


$$BOCPTl 


QP 


RETURNED 


$$BJCOPT 


KK 


OUT 


$$BOMR01 


DG 


REWIND 


$$BCMT06 


LA 


OUTFILE 


$$BERRTN 


PA 


REWIND 


$$BOMT01 


KA 


OUTPUT 


$$BOCP01 


QB 


REWIND 


$$BOMT03 


KE 








REWINDIT 


$$BOMT05 


KH 


PCHBLANK 


$$BCLOSP 


RD 


REWINDT 


$$BCMT06 


LA 


PCHBLNK 


$$BCLOSP 


RE 


RST 


$$BOCP01 


QB 


PCH2520 


$$BOCPll 


QG 


RST 


$$BOCPll 


QH 


PCH2520 


$$BOCP12 


QK 


RTRYNT 


$$BJCOPT 


KK 


PCH42 


$$BOCP01 


QA 


RTVOL1 


$$BOCPTl 


QN 


PCH42 


$$BOCP02 


QD 








PCH42 


$$BOCPll 


QG 


SAVSYS 


$$BOCP01 


QB 


PCH42 


$$BOCP12 


QK 


SAVSYS 


$$BOCPll 


QH 


PPRT 


$$BOCP02 


QD 


SENSE 


$$BOCPTl 


QS 


PPRT 


$$BOCPll 


QH 


SENSE 


$$BOCPT2 


QY 


PPRT 


$$BOCP12 


QK 


SENSEX 


$$BOCPTl 


QS 


PRINTIN 


$$BOCP01 


QC 


SETABORT 


$$BOMSGl 


RN 


PRINTIN 


$$BOCP02 


QE 


SETEOB 


$$BOCPMl 


RH 


PRINTIN 


$$BOCP12 


QL 


SETEOB 


$$BOCPM2 


RH 








SETEOB 


$$BOMT0M 


LE 


PROCESS 


$$BOMT06 


KK 


SETEOB 


$$BOMT0W 


LE 


PROCRUN 


$$BCCPT1 


QZ 


SETINTSW 


$$BOMSGl 


RP 


PROCRUN 


$$BOCPTl 


QN 


SETMODE 


$$BOMT05 


KH 


PROCRUN 


$$BOCPT2 


QU 


SETONEOF 


$$BOMT01 


KC 


PROCRUN1 


$$BCCPT1 


QZ 


SETOPEN 


$$BOMT01 


KC 


PROCRUN1 


$$BOCPTl 


QN 


SETOPEN 


$$BOMT02 


KD 


PROCRUN1 


$$BOCPT2 


QU 








PROCRUN2 


$$BCCPT1 


QZ 


SETOPNBT 


$$BOUR01 


AB 


PROCRUN2 


$$BOCPTl 


QN 


SETPNT 


$$BCEOVl 


KP 


PROCRUN2 


$$BOCPT2 


QU 


SETSW 


$$BOCP01 


QA 


PUNCHBLK 


$$BCLOSP 


RE 


SETSW 


$$BOCP02 


QD 


P2520 


$$BOCP02 


QD 


SETSW 


$$BOCPll 


QG 


P2540 


$$BOCP01 


QA 


SETUPRD 


$$BOOR01 


EY 
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SEVENTRK 


$$BOMT06 


KK 


TRANSENT 


$$BCMT03 


KV 


SHIFTMSG 


$$BOMSGl 


RM 


TRANSENT 


$$BCMT04 


KW 


SKIP 


$$BCCPT1 


RB 


TRANSENT 


$$BCMT05 


KY 


SKIP 


$$BCMR01 


DH 








SKIP 


$$BCMT01 


KR 








SKIP 


$$BCMT03 


KV 


TRANSENT 


$$BOMT06 


KK 


SKIP 


$$BCMT04 


KW 


TREWIND 


$$BCCPT1 


RA 


SKIP 


$$BCMT05 


KY 


TSTIGN 


$$BOUR01 


AA 


SKIP 


$$BCMT07 


LB 


TSTLAB 


$$BCEOVl 


KP 








TSTPCH 


$$BERRTN 


PA 


SKIP 


$$BJCOPT 


KK 


TSTRNG 


$$BOCP02 


QE 


SKIP 


$$BOCPT2 


QW 


TSTRNG 


$$BOCPll 


QJ 


SKIP 


$$BOMR01 


DG 


TSTRNG 


$$BOCP12 


QL 


SKIP 


$$BOMT05 


KH 


TYPE 


$$BMMR20 


DJ 


SKIP 


$$BOMT06 


KK 


TYPEASW 


$$BOMSG2 


RQ 


SKIPLBLS 


$$BCMT01 


KR 


TYPEEOB 


$$BOMSGl 


RP 


SKIPMSG 


$$BCMT02 


KT 








SKIPREWU 


$$BCMT02 


KT 


UNTRC 


$$BOCP01 


QB 


SKIPO 


$$BMSGWR 


LF 


UNTRC 


$$BOCP02 


QD 


SKIPO 


$$BOCPMl 


RH 


UNTRC 


$$BOCPll 


QH 


SKIPO 


$$BOCPM2 


RH 


UNTRC 


$$B0CP12 


QK 


SKIP1 


$$BOMT06 


KK 


UNTRCP 


$$BOCP01 


QB 


SKIP2 


$$BMSGWR 


LF 


UNTRCP 


$$BOCP02 


QD 


SKPVOL 


$$BJCOPT 


KM 


UNTRCP 


$$BOCPll 


QH 


SPACEFWD 


$$BOMT01 


KC 


UNTRCP 


$$BOCP12 


QK 








UPDATE 


$$BCMT02 


KU 


SRCHLAB 


$$BOCPTl 


QS 


UPDATE 


$$BCMT04 


KW 


SRCHLAB 


$$BOCPT2 


QY 


UPDATE 


$$BOMT01 


KC 


START 


$$BOUR01 


AA 


UPDATE 


$$BOMT04 


KG 


STARTIO 


$$BCLOSP 


RG 


UPDATE 


$$BOUR01 


AB 


STARTOVR 


$$BOCPMl 


RJ 


USDSTM 


$$BJCOPT 


KK 


STARTOVR 


$$BOCPM2 


RJ 


USERTEST 


$$BOMT04 


KG 


STKON 


$$BOCP01 


QB 








STKON 


$$BOCPll 


QH 


VOLSKIP 


$$BOCPTl 


QP 


STMODEIO 


$$BOUR01 


AB 


VOLSKIP 


$$BOCPT2 


QV 


STOR 


$$BOCP01 


QC 


VOLSKIP1 


$$BOCPTl 


QP 


STOR 


$$BOCPll 


QJ 


VOLSKIP1 


$$BOCPT2 


QV 








VOL1CHK 


$$BOCPTl 


QN 


STRTOP 


$$BOCP01 


QA 


VOL1CHK 


$$BOCPT2 


QU 


STRTOP 


$$BOCP02 


QD 


VOL1CHK 


$$BOMT05 


KH 


STRTOP 


$$BOCPll 


QG 








STRTOP 


$$B0CP12 


QK 


WHDRS 


$$BOCPTl 


QS 


SUMROUT 


$$BOMSG2 


RQ 


WHDRS 


$$BOCPT2 


QY 


SVCALL 


$$BJCOPT 


KN 


WORKFILE 


$$BCMT06 


LA 


SYSLOD 


$$BOCP01 


QC 


WRITE 


$$BOCPMl 


RK 


SYSLOD 


$$BOCPll 


QJ 


WRITE 


$$BOCPM2 


RK 


SYSNO 


$$BCMT07 


LC 


WRITELAB 


$$BOMT04 


KG 


SYSO 


$$BOCP01 


QB 


WRITEMSG 


$$BOMSGl 


RN 


SYSO 


$$BOCPll 


QH 


WRITHDR 


$$BOMT06 


KK 








WRITTM 


$$BJCOPT 


KM 


TDIR 


$$BOCPTl 


QR 


WRNGPKSW 


$$BOMSG2 


RQ 


TEST 


$$BOMT01 


KB 


WTDEVED 


$$BCLOSP 


RG 


TMPPBP 


$$BCMT02 


KT 








TMPPBP 


$$BCMT07 


LC 


XPIRCHK 


$$BOCPT2 


QV 


TMWRITE 


$$BCCPT1 


RA 








TMWRITE 


$$BOCPT2 


QV 


YESLDPT 


$$BOMT03 


KE 


TRANS 


$$BMSGWR 


LF 


YESOPEN 


$$BOMT03 


KF 


TRANSENT 


$$BCMT01 


KR 


YESTM 


$$BOMT01 


KA 
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APPENDIX B: MESSAGE CROSS-REFERENCE LIST 



r T" 

| Message) 
j Number | 

F +- 

J4000I | 

L J. 


Message 
RETRY 


— T - 


Issuing 
Routine 

$$BCLOSP 

$$BERRTN 


-T 1 

(Chart | 
1 ID 1 

-+ ^ 

1 R D | 

1 RE 1 

1 PA 1 
4- J 


|4110A 
I 


1 


NO VOL1 FOUND TLBL=xxxxxx filename SYSxxx=cuu 


T 


$$BOCPT2 
$$BOMT03 


T 
j 


QW | 
KE | 


J4111A 
L 


1 
1 


NO VOL1 FOUND filename SYSxxx=cuu 


T 


$$BOCPTl 
$$BOMT01 


1 


QN | 
KA j 


|4112A 

L 


1 
1 


VOL. SERIAL NO. ERROR TLBL=xxxxxx filename 
SYSxxx=cuu 


T" 


$$BOCPTl 
$$BOCPT2 
$$BOMT01 
$$BOMT03 


T" 
I 


QN | 
QU | 
KA | 
KF | 


|4113D 

1— 


1 
I 


NO HDR1 LBL FOUND filename SYSxxx=cuu 


T 
4~ 


$$BOCPTl 
$$BOMT01 


1 
| 


QP I 
KA j 


|4114A 

| 

J4115A 

L 


I 

-+- 


FILE SEQ NO. ERROR filename SYSxxx=cuu 

FILE SERIAL NO. ERROR TLBL=xxxxxx filename 
SYSxxx=cuu 


T 

— +- 


$$BOCPTl 
$$BOMT01 

$$BOCPTl 
$$BOMT01 


1 
-+- 


QN | 
KB | 

QR | 
KB j 


|mi6A 


1 
I 


VOLUME SEQ NO. ERROR filename SYSxxx=cuu 


T" 


$$BOCPTl 
$$BOMT01 


T" 
| 


QR I 
KB j 


r 

J4117D 

L -. 


1 


NO TM FOUND ON READBK filename SYSxxx=cuu 


T 


$$BOMT02 
$$BOMT05 


1 
| 


KD | 
KJ j 


(4118D 

L 


1 
1 


FILE ID ERROR READBK filename SYSxxx=cuu 


T 


$$BOMT02 


1 
1 


KD I 


|4119A 


1 


FILE UNEXPIRED filename SYSxxx=cuu 


T 


$$BOCPT2 
$$BOMT03 
$$BOMT06 


1 


QV | 
KF | 
KK j 


| 41201 
L 


1 
1 


TAPE POSITIONED WRONG filename SYSxxx=cuu 


T" 


$$BOMT03 


T" 
1 


KF | 


|4121A 

L 


1 
1 


NO ALTERN DRIVE ASSGN SYSxxx=cuu 


T 


$$BCMT07 


1 
| 


LC | 


| 41221 

L 


1 
1 


EOV ENCOUNTERED SYSxxx=cuu 


T 


$$BCMT07 


1 
1 


LB | 


|4123D 

L„.„ mm _ mil 


1 
| 


WRONG POSITION, READBK filename SYSxxx=cuu 


T 
X. 


$$BOMT02 


1 
1 


KD | 


| 41241 
L 


t 


TOO MANY UHL's filename SYSxxx=cuu 


T 
X. 


$$BOMT04 


1 
1 


KG | 


J4125D 

L 


1 
™.X- 


VOL1 LBL FOUND filename SYSxxx=cuu 


T 
X- 


$$BOMT05 


T 


KH | 

J 
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r 


"T" 




T" 




-T- 


1 


| Message) 






Issuing 


| Chart | 


| Number 




Message 




Routine 




ID | 


L 


1 




J_ 




1 




r 


1 




T 




1 




|4126l 


| 


EOV ENCOUNTERED filename SYSxxx=cuu 


1- 


$$BCMT02 


1 


KT | 


r 


1 




-j.. 




1 




|4130A 




EOF OR EOV INQUIRY filename SYSxxx=cuu 




$$BCMT01 




KR | 


L 


1 




X_ 




X- 




r 


1 












|4131D 




DTF=xxxxxx LBL=xxxxxx BLOCK COUNT ERROR filename 
SYSxxx=cuu 




$$BCMT01 
$$BCMT03 




KS | 
KV | 


L 


1 




4-- 




1 




r 


1 




T 




1 




|4132D 

L 


1 


ERROR IN FILE ID filename SYSxxx=cuu 


4-- 


$$BOCPTl 
$$BOMT01 


X- 


QR I 
KB | 


r 














|4133D 




ERROR IN HDR LBL filename SYSxxx=cuu 




$$BOCPTl 
$$BOMT01 




QR I 
KB j 


U- 


1 




X. 




1 




r 


1 




T 




1 




|4140A 




NO ALTERN DRIVE ASSIGN filename SYSxxx=cuu 




$$BCMT02 




KT | 


|. 


-+- 




— +- 




-+- 




J4144A 




1600 BPI TAPE MOUNTED filename SYSxxx=cuu 




$$BOCPT2 
$$BOMT03 




QY | 
KE | 


L 


I 




4-- 




X- 




r 


1 




T 








| 41511 


1 


HDR1 LBL INFORMATION filename SYSxxx=cuu 


X. 


$$BOMT01 
$$BOMT03 


1 


KA | 
KF | 


r^ 


I 




T 




1 




|<4170A 




FILE PROTECTED TAPE SYSxxx=cuu 




$$BJCOPT 




KL | 


1- 


-+- 




— +- 




-+• 




|U171A 

L _ 


1 


UNEXPIRED FILE SYSxxx=cuu 


4— 


$$BJCOPT 


1 


KM | 


r 


1 




T 




1 




|4172A 




INVALID LABEL SET SYSxxx=CUU 




$$BJCOPT 




KM | 


I— 


| 




4- 




1 




r^ 


1 




T 




1 




(4880 

L _ 


1 


INVALID FILE TYPE 


4.- 


$$BCEOVl 


1 


KP | 


r 


1 




T 




1 




|4881I 


1 


NO LABEL INFORMATION 


4.- 


$$BCCPT1 
$$BCEOVl 


1 


RA | 
KQ | 


r^ 


1 




T 




1 




|4883I 

L 


1 


INVALID LOGICAL UNIT filename SYSxxx=cuu 


X- 


Any Open 
or Close 
Phase 


X- 




r 


1 




T 




1 




|4884D 




FILE PROTECT RING NEEDED filename SYSxxx=cuu 




$$BOCP02 
$$BOCPll 
$$BOCP12 
$$BOCPT2 




QE | 
QJ | 
QL | 
QX | 


1— - 


1 




1- 




1 




I 


S 




T 




1 




|4887I 




SYS FILE EXTNT EXCEEDED filename SYSxxx=cuu 




$$BERRTN 




PA | 


L 


1 




X- 




1 




r 


1 




T 




1 




|4888I 




EOF ON SYSTEM INPUT FILE filename SYSxxx=cuu 




$$BERRTN 




PA | 


I — 


1 




X- 




i 




r 


1 




T 




1 




| 4MR1I 




EXTERNAL INTERRUPT I/O ERROR 




MRMOD 




DC | 


| 4MR2I. 




SCU NOT OPERATIONAL 




MRMOD 




DC | 
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APPENDIX C: 



SUPERVISOR CALLS (SVC f S) 



n 

Macro 
Supported 

— J 


r 1 

SVC 

L J 


r ~ 

Function 

L _ — _ 


EXCP 


r 1 



|- — . — 
Execute channel programs. 


FETCH 


1 
2 
3 


Fetch any phase. 

Fetch a logical transient (B-transient) . 
Fetch or return from a physical transient 
(A-transient) . 


LOAD 


a 


Load any phase. 


MVCOM 


5 


Modify supervisor communications region. 


CANCEL 


6 




WAIT 


7 
8 


Wait on a CCB or TECB. 

Transfer control to the problem program from a 

logical transient (B-transient). 


LBRET 


9 


|the problem program after a SVC 8. 


SETIME 


♦10 
11 
12 

13 


Set timer interval. 

Return from a logical transient (B-transient). 
Logical AND (reset) to second Job Control byte 
(displacement 57 in communications region). 
Logical OR (set) to second Job Control byte 
[(displacement 57 in communications region). 


EOJ 


14 
15 


Cancel job and go to Job Control for end of job 
step. 

|Same as SVC except ignored if CHANQ table is 
full. 



I JL X 



J 
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Macro 
Supported 



SVC 



Function 



STXIT (PC) 

EXIT (PC) 
STCIT (IT) 

EXIT (IT) 
STXIT (OC) 

EXIT (OC) 



*16 

*17 
*18 

♦ 19 

*20 

*21 

♦ 22 

*23 

♦ 24 
♦25 





♦ 26 




*27 


EXIT (MR) 


| *28 




♦29 




| *30 




♦ 31 




*32 


COMRG 


33 


GETIME 


♦ 34 




♦ 35 


FREE 


♦36 


STXIT (AB) 


♦ 37 


ATTACH 


♦ 38 


DETACH 


#39 


POST 


♦ 40 


DEQ 


*41 


ENQ 


♦ 42 




| 50 



Provides supervisor with linkage to user's PC 
routine for program check interrupts. 

Return from user's PC routine- 
Provides Supervisor with linkage to user's IT 
routine for interval timer interrupts. 

Return from user's IT routine. 

Provides Supervisor with linkage to user's OC 
routine for external or attention interrupts 
(operator communications) . 

Return from user's OC routine. 

The first SVC 22 seizes the system for the 
issuing program by disabling multiprogram 
operation. The second SVC 22 releases the system 
(enables multiprogram operation). 

Load phase header. Phase load address is stored 
at user's address. 

Provide supervisor with linkage to user's TECB 
and set timer interval. 

Issues Halt I/O (HIO) on a Teleprocessing device 

Validate address limits. 

Halt I/O (HIO) on a Teleprocessing device. 

Return from user's stacker select routine. 
Multiple wait. 
Reserved for QTAM. 
Reserved for QTAM. 
Reserved for QTAM. 

Internal. 

Internal. 

Track Hold Function. 

Free held track. 

Abnormal termination exit. 

Attach subtask. 

Detach subtask. 

Post subtask termination. 

Dequeue resource. 

Enqueue resource. 
Special error code. 



* = Optional 
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APPENDIX D:_ MICROFICHE CROSS-REFERENCE LIST FOR VOLUME 2 



Logical IOCS Macros 





Microfiche 


Macro 


Card Number 


CDMOD 


453.002 


CHECK 


453.002 


CHNG 


453.002 


CLOSE (R) 


453.003 


CNTRL 


453.003 


DIMOD 


453.004 


DISEN 


477.001 


DSPLY 


453.016 


DTFCD 


453.004 


DTFCN 


453.004 


DTFDI 


453.005 


DTFEN 


453.005 


DTFMR 


477.001 


DTFMT 


456.001 


DTFOR 


478.001 


DTFPH 


453.005 


DTFPR 


453.006 


DTFPT 


458.001 


FEOV 


456.001 


1 FREE 


453.006.50 


GET 


456.007 


LBRET 


453.008 


LITE 


477.001 


MRMOD 


477.001 


MTMOD 


456.002 


NOTE 


453.009 


OPEN (R) 


453.009 


ORMOD 


478.001 


POINTR 


453.010 


POINTS 


453.010 


POINTW 


453.010 


PRMOD 


453.010 


PRTOV 


453.011 


PTMOD 


458.001 


PUT 


453.011 


•nnr x-itti 


47 8. 001 


READ 


453.011 


RELSE 


453.011 


RESCN 


478.001 



SEOV 

TRUNC 

WAITF 
WRITE 



453.012 

453.016 

453.016 
453.016 



Logical Transient Phases 





Microfiche 


Phase 


Card Number 


$$BCCPT1 


CTL.033.00 


$$BCEOVl 


CTL.034.00 


$$BCMR01 


IOM.003.00 


$$BCMT01 


CTL.044.00 


$$BCMT02 


CTL.045.00 


$$BCMT03 


CTL.046.00 


$$BCMT04 


CTL.047.00 


$$BCMT05 


CTL.048.00 


$$BCMT06 


CTL.049.00 


$$BCMT07 


CTL.050.00 


$$BERRTN 


CTL.059.00 


$$BJCOPT 


CTL.061.00 


$$BMMR20 


IOM.004.00 


$$BMSGWR 


CTL.063.05 


$$BOCPMl 


CTL. 064.10 


$$BOCPM2 


CTL.065.20 


$$BOCPTl 


CTL. 066. 30 


$$BOCPT2 


CTL. 067. 40 


$$BOCP01 


CTL. 068. 00 


$$BOCP02 


CTL. 069. 00 


$$BOCPll 


CTL.070.00 


$$BOCP12 


CTL. 071. 00 


$$BOMR01 


IOM.005.00 


$$B0MSG1 


CTL. 089. 00 


$$BOMSG2 


CTL. 0^0. 00 


$$BOMSG3 


CTL. 091. 00 


$$BOMSG4 


CTL. 092. 00 


$$BOMSG5 


CTL. 093. 00 


$$BOMSG6 


CTL. 094. 00 


$$BOMT0M 


CTL. 095. 00 


$$BOMT0W 


CTL. 096. 00 


$$BOMT01 


CTL. 097.00 


$$BOMT02 


CTL. 098.00 


$$BOMT03 


CTL. 099. 00 


$$BOMT04 


CTL. 100. 00 


$$BGMT05 


CTL. 101. 00 


$$BOMT06 


CTL. 102. 00 


$$BOOR01 


IOR.002.00 


$$BOUR01 


CTL. 127. 00 
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> 
a> 

X 
W 



O 

§ 

3 

a 

o 
o 

ft 
n 
o 



H 

o 
o 



to 



o 
o 



o 
o 

rt 
O 



W 
M 
O 

o 
* 

in 
ri- 
o 
n 
a> 

<£* 
(D 

tr 1 

n> 
^< 
o 
c 
ft 



1-1 

rt 



O 
i-h 



Bytes 
Used For - 




Residual Count 



Transmission 
Information 



CSW Status Bits 



Transmitting 
Information 
Between Physical 
IOCS and Problen 
Program 



(Note 1) 
Byte 4 



Symbolic Unit 
Address 



Not Used 

Must Contain 

X'00' 



CCW Address 



11 



Reserved for 
Physical IOCS 



CCW Address 
in CSW 



13 



15 16 



23 



Byte 5 "~ - - - 



BIT DESIGNATION 

32 Attention 

33 Status modifier 

34 Control unit end 

35 Busy 

36 Channel end 

37 Device end 

38 Unit check 

39 Unit exception 



BIT DESIGNATION 

40 Program -controlled 
interruption 

41 Incorrect length 

42 Program check 

43 Protection check 

44 Channel data check 

45 Channel control check 

46 Interface control check 

47 Chaining check 



Hexadecimal 
Representation 
of SYSnnn 

SYSRDR =0000 

SYSIPT =0001 

SYSPCH =0002 

SYSLST =0003 

SYSLOG=0004 

SYSLNK =0005 

SYSRES 

SYSSLB 

SYSRLB 

SYSUSE 

SYS000 

SYS001 

etc . 



= 0006 
= 0007| 
= 0008' 
= 0009i 

=oioo| 

= 0101 



"-^-1. 



Address of CCW 
Associated with 
This CCB 



X'80'-CCB being 
used by ERP 

X'40' -Channel 
Appendage 
Routine Present 
for Teleprocessing 
Device 

X'20' -Sense 

Information 

Desired 

X'10' -Message 
Writer 

X'OT-Seek 
Separation or 
Console Buffering 



Address of CCW 
in the CSW 
Stored at Channel 
End, or Address 
of the Channel 
Appendage 
Routine for 
Teleprocessing 
Devices 



8 Bytes 
Appended 
to the CCB 
when Sense 
Information 
is Desired 







^"•^ 






Byt 


e 2 






"" "~ — --___ 
















Return Tape Read 




















Data Check, 2540 








Traffic Bit 


End -of- File 


Unrecoverable 


Acceptable 


Return DASD 


Post at 


or 2520 Equipment 


User Error 






(Wait) 


(/* °r /&) 


I/O Error 


Unrecoverable 
I/O Error 


Data Checks 
or 2671 errors 
to the User 


Device End 


Check, or DASD 
Data Checks on 
Read or Verify 


Routine 






(Note 5) 


(Note 2) 








(Note 5) 


Command 
(Note 3) 











1 


2 


3 


4 


5 


6 


7 




By^ 


Set On 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


Pr. Pr. 


Pr. Pro 


Pr. Pr. 


Pr. Pr. 











Byt 


e 3 










DASD- 


DASD- 


DASD- 


2540,2520- 


Non - Recovery 


No - Record - 


Carriage 


Command 




Data Check in 


Track Overrun 


End of Cylinder 


Equipment Check 


Questionable 


Found Condition 


Channel 9 


Chaining 




Count Area 


MSCR- 


MICR- 


Tape - 


Condition : 


(Retry on 231 1 or 


Overflow or 


Retry from 




MICR- 


Intervention 


(Note 4) 


Read Data Check 


Card- 


2314) 


Verify Error 


the next CCW 




SCU Not 


Required 


1285/1287- 


DASD- 


Unusual 




for DASD 


to be executed 




Operational 


1 285/1 287- 


Hopper Empty 


Any Data Check 


Command 










1285/1287- 


Key board 


in Document 


1285/1287- 


Sequence 




1287 Document 






Data Check in 


Correction in 


Mode 


Equipment Check 


DASD- 




Mode - Late 






Journal Tape 


Journal Tape 






No Record Found 




Stacker Select 






Mode 


Mode 






1285/1287- 
Document Jam or 















2 


3 


Torn Tape 
4 








Bils ■ *" 


1 


5 


6 


7 


Set On By — »- 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


PIOCS 


Pr. Pr. 


PIOCS 


Pr. Pr. 



PIOCS = Physical IOCS 
Pr. Pr. = Problem Program 

Note 1 . Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32 - 47). If byte 2, bit 5 is on and device end results as a separate interrupt, device end will be ORed into CCB byte 4. 

Note 2. Indicates /* or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on. 

Note 3. DASD data checks on count not returned. 

Note 4. For 1412/1419, Disengage. For 141 9D, I/O Error in external interrupt routine (channel data check or busout check). 

Note 5. The traffic bit (Byte 2, bit 0) is normally set on at channel end to signify that the I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 6 in byte 3 will be set on 
at device end. Also see Note 1 . 
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Condition Indicated 


Mask for 
Test Under 










Byte 


Bit 


1 (ON) 


(OFF) 


Mask 
Instruction 


2 


Traffic Bit (WAIT) 


l/O Completed . Normally 
set at Channel End . Set at 
Device End if Bit 5 is ON. 


l/O Requested and not 
completed . 


X'80' 


1 End of File on System Input 


/* or/&on SYSRDRor 




X'40' 






SYSIPT. Byte 4, Unit Ex- 










ception Bit is also ON . 






2 Unrecoverable l/O Error 


I/O error passed back due to 


No program or operator 


X'20' 






program option or operator 


option error was passed 








option 


back 




3* Accept Unrecoverable I/O Error 


Return to User after Physical 


Operator Option: 


X'10' 




(Bit 2 is ON) 


IOCS Attempts to correct 
I/O Error. + 


Dependent on the Error 




4* 2671 Data Check 


Operator Options: 


Operator Option: 


X'08' 






Ignore, Retry, or Cancel 


Retry or Cancel 






Return any DASD Data Checks 


Return to User 






5* Post at Device End 


Device End Condition will 


Device End Conditions 


X'04' 






be posted i.e., byte 2, bit 


will not be posted. 








and byte 3, bits 3 and 6 


Traffic Bit is set at 








set at Device End. Also 


Channel End . 








byte 4, bit 5 is set (see 










Figure 37). 






6* Return: Uncorrectable tape read 


Return to user after physical 


Operator Option: 


X'02 1 




data check; 2540 or 2520 punch 


IOCS attempts to correct 


Ignore or Cancel for 






equipment check; or DASD read or 




Tapes and punches . 






verify data check. (Data checks on 




Retry or cancel for 






count not returned.) 




DASD. 




7 * User Error Routine 


User will handle error recov- 


A Physical IOCS Error 


x'or 






ery (Test Bit 2). R 


routine will be used. 




3 


Data check in DASD count field. 


Yes -Byte 3, bit 3 is OFF; 
Byte 2, bit 2 is ON. 


No 


X'80 1 




MICR-SCU not operational . 


Yes 


No 






Data Check- 1285 or 1287 in 


Yes 


No 






Journal Tape Mode 








1 DASD Track overrun. 


Yes 


No 


X'40' 




MICR Intervention required. 


Yes 


No 






Keyboard correction 1285 or 1287 in 


Yes 


No 






Journal Tape Mode 








2 End of DASD Cylinder 


Yes 


No 


X'20' 




MICR-1412/l419disengage 


Document feeding Stopped. 


No 






-1419D, I/O error in external interrupt 


Channel data check or Busout 








routine 


check 








Hopper Empty 1287 Document Mode 


Yes 


No 




3 Tape read data check; 2540 or 2520 


Operation was unsuccessful . 


No 


X'10" 




punch equipment check; or any 


Byte 2, Bit 2 is also ON. 








DASD data check 


Byte 3, Bit is OFF. 








1285 or 1287 equipment check 


Yes 


No 
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Byte 


Bit 


Condition Indicated 


Mask for 
Test Under 
Mask 
Instruction 


1 (ON) 


(OFF) 


3 


4 Questionable Condition 
Non -recovery 


Card: Unusual Command 
sequence (2540). DASD: 
No record found. 

1285/1287: Document Jam 
or Torn Tape 




X'08' 


5 No record found condition 


Retry command if no record 
found condition occurs 
(2311 or 2314) 


Set ON questionable 
condition bit and 
return to user. 


X'04' 


6 Verify Error for DASD or Carriage 
Channel 9 Overflow 

1287 Document Mode - Late Stacker 
Select 


Yes. (Set ON when Channel 
9 is reached only if Byte 2, 
Bit 5 is ON.) 


No 


X'02' 


7* Command Chain Retry 


Retry begins at last CCW 
executed . 


Retry begins at first 
CCW of channel 
program 


X'OT 



* User Option Bits. Set in CCB macro. Physical IOCS sets the other bits OFF at EXCP time and ON when the condition specified 

above occurs. 
+ I/O program check, command reject, or tape equipment check always terminates the program. 
H User must handle all error or exceptional conditions except Channel Control Check, Interface Control Check, I/O Program Check, 

and l/O Protection Check . 

Command Control Block Storage Layout (Part 3 of 3) 
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APPENDIX F: CONTROL CODES 



CTLCHR=ASA 



Pocket Selection on 2540 



A control character must appear in each 
logical record if the ASA option is chosen. 
If the control character for the printer is 
not valid, a message is given and the job 
is canceled. If the control character for 
the card punch is not V or W, the card is 
selected into pocket 1. The codes are as 
follows: 



Code 

(blank) 


+ 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 

B 

C 

V 

W 



Interpretat ion 

Space one line before printing 
Space two lines before printing 
Space three lines before printing 
Suppress space before printing 
Skip to channel 1 before printing 

2 

3 

4 

5 

6 

7 

Skip to channel 8 before printing 
Skip to channel 9 before printing 
Skip to channel 10 before 

printing 
Skip to channel 11 before 

printing 
Skip to channel 12 before 

printing 
Select stacker 1 
Select stacker 2 



Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 



before printing 
before printing 
before printing 
before printing 
before printing 
before printing 



CTLCHR=YES 



The control character is the command-code 
portion of the System/360 Channel Command 
Word used in printing a line or spacing the 
forms. If the character is not one of the 
following characters, unpredictable events 
will occur. 



8-Bit 
Code 



Punch 
Combination 



Function 



Stacker Selection on 1442 



10000001 12,0,1 
11000001 12,1 



Select into stacker 1 
Select into stacker 2 



00000001 12,9,1 Select into pocket 1 

01000001 12,0,9,1 Select into pocket 2 
10000001 12,0,1 Select into pocket 3 



Stacker Selection on 2520 

00000001 12,9,1 Select into stacker 1 
01000001 12,0,9,1 Select into stacker 2 

Printer Control 



00000001 12,9,1 Write (no automatic 

space) 

00001001 12,9,8,1 Write and space 1 

line after printing 

00010001 ll w 9,l Write and space 2 

lines after printing 

00011001 11,9,8,1 Write and space 3 

lines after printing 



10001001 12,0,9 



10110001 



10111001 



Write and skip to 
channel 1 after 
printing 



10010001 12,11,1 Write and skip to 

channel 2 after 
printing 

10011001 12,11,9 Write and skip to 

channel 3 after 
printing 



10100001 11,0,1 



10101001 11,0,9 



Write and skip to 
channel 4 after 
printing 

Write and skip to 

printing 



12,11,0,1 Write and skip to 
channel 6 after 
printing 

12,11,0,9 Write and skip to 
channel 7 after 
printing 
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8-Bit 
Code 



Punch 
Combination 



11000001 12,1 



11001001 12,9 



11010001 11,1 



11011001 11,9 



11100001 11,0,9,1 



00001011 



00010011 



00011011 



10001011 



12, 9,8,3 
11,9,3 
ll f 9,8,3 
12,0,8,3 



Function 

Write and skip to 
channel 8 after 
printing 

Write and skip to 
channel 9 after 
printing 

Write and skip to 
channel 10 after 
printing 



Write and skip to 
channel 11 after 
printing 



Write and skip to 
channel 12 after 
printing 

Space 1 line 
immediately 

Space 2 lines 
immediately 

Space 3 lines 
immediately 

Skip to channel 1 
immediately 



8-Bit 
Code 


Punch 
Combination Function 




10010011 


12,11,3 


Skip to channel 
immediately 


2 


10011011 


12,11,8,3 


Skip to channel 
immediately 


3 


10100011 


11,0,3 


Skip to channel 
immediately 


4 


10101011 


11,0,8,3 


Skip to channel 
immediately 


5 


10110011 


12,11,0,3 


Skip to channel 
immediately 


6 


10111011 


12,11,0,8, 


3Skip to channel 
immediately 


7 


11000011 


12,3 


Skip to channel 
immediately 


8 


11001011 


12,0,9,8,3 Skip to channel 
immediately 


9 


11010011 


11,3 


Skip to channel 
immediately 


10 


11011011 


12,11,9,8, 


, 3Skip to channel 
immediately 


11 


11100011 


0,3 


Skip to channel 
immediately 


12 


00000011 


12,9,3 


No op 
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INDEX 



Alternate Switching for System Units, 

Tape ($$BCMT07) 71 
Alternate Switching for EOV, Tape 

($$BCMT02) 68 
ASA Control Codes 294 

BSI Buffer Status Indicator (MICR) 24 

Buffer (MICR) 25 

Buffer Status Indicator, BSI (MICR) 24 

Card Device Files (CD) 13 
Card Device Files (CD) 

Logic Module, CDMOD 16 
CCB, Command Control Block 291 
CDMOD Macro 16 
CDMOD Module 

CNTRL Macro 17 

CNTRL Macro Chart BA 103 

GET Macro 17 

GET Macro Charts BB-BD 104-106 

GET Macro, Combined Files 17 

PUT Macro 17 

PUT Macro Charts BD-BH 106-110 

PUT Macro, Combined Files 17 
CHECK Macro 

MRMOD 24 

MRMOD Charts DA- DC 113 

MTMOD Workfiles Chart HA 54, 156 
Checkpoint Records, MTMOD Bypass 

Routine 57 
Checkpoint/Restart - Refer to Volume 1 
Close 

Alternate Switching for EOV 
($$BCMT02) 68 

Alternate Switching System Units 
($$BCMT07) 71 

DTFCP/DTFDI Tape Files ($$BCCPT1) 93 

EOF Backward ($$BCMT03) 68 

EOF/EOV Input Forward ($$BCMT01) 67 

EOV Output Forward ($$BCMT04) 69 

Magnetic Ink Character Recognition 27 

Magnetic Tape except Workfiles 
($$BCMT05) 70 

Optical Reader Files 31 

Paper Tape Files 34 

Punch Files ($$BCLOSP) 94 

Unit Record Files 12 

Workfiles ($$BCMT06) 71 
CNTRL Macro 

CDMOD 17 

MTMOD 54 

MTMOD Workfile 54 

ORMOD 29 

PRMOD 33 
Combined File (DTFCD) 13 
Command Control Block, CCB 291 
Compiler Files (CP) 75 

Characteristics 76 

CPMOD Macro 83 

DTFCP Macro 75 

Initialization and Termination 91 

Logic Module (CPMOD) 83 



Console Files (CN) 17 

Close 17 

DTFCN Macro 17 

GET Macro 18 

GET Macro Chart CA 111 

PUT Macro 19 

PUT Macro Chart CB 112 

Logic Module 17 

Open 17 
CPMOD Macro 83 

Parameters 83-84 

GET, IOPTR=YES 84 

GET, IOPTR=YES Chart MC 200 

GET, One I/O Area 84 

GET, One I/O Area Chart MB 219 

GET, Two I/O Areas 84 

GET, Two I/O Areas Chart MA 218 

PUT, IOPTR=YES 85 

PUT, IOPTR=YES Charts MJ-MK 226-227 

PUT, One I/O Area 85 

PUT, One I/O Area Charts MG-MH 224-225 

PUT, Two I/O Areas 84 

PUT, Two I/O Areas Charts MD-MF 221-223 



DEVADDR, DTFCP Macro Parameter 75 
Device Independent Files 75 

Initialization and Termination 91 

Open ($$BOCP01) 91 

Open ($$BOCP02) 9 2 
Device Independent System Files (DI) 85 
DIMOD Macros 

GET, one I/O Area 89 

GET, One I/O Area Charts NA-NB 22 8-229 

GET, Two I/O Areas 90 

GET, Two I/O Areas Charts NC-ND 230-231 

PUT, One I/O Area 90 

PUT, One I/O Area Charts NE-NG 232-234 

PUT, Two I/O Areas 90 

PUT, Two I/O Areas Charts NH-NK 235-237 
DIMOD Macro 89 
DIMOD Module 89 
DISEN Macro, MRMOD 24 
DISEN Macro, MRMOD Chart DD 116 
Disk Open Message Writer 

Phase 1 ($$BOMSGl) 95 

Phase 2 ($$BOMSG2) 95 
DISK=, CPMOD Macro Parameter 84 
DSPLY Macro, ORMOD 30 
DTF Tables 

DTFCD Combined 16 

DTFCD Input 14 

DTFCD Output 15 

DTFCP DISK=NO 80 

DTFCP DISK=OMITTED 82 

DTFCP DISK=YES 7 7 

DTFDI 87 

DTFMR 20 

DTFMT Data Files 4 3 

DTFMT Workfiles 51 

DTFOR 28 

DTFPH Magnetic Tape 52 
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DTFPR 32 

DTFPT No Translation, Shifts, 
Deletes 35 

DTFPT Translation, No Shift or 
Deletes 36 

DTFPT Translation, Shifts, Deletes, 
Fixed Unblocked Records 37 

DTFPT Translation, Shifts, Deletes, 
Undefined Records 39 
DTFCD Macro 13 
DTFCD Tables 

Combined 16 

Input, Reader 14 

Output, Punch 5 
DTFCN Macro 17 
DTFCN Table 18 

DTFCP Close Tape Files ($$BCCPT1) 93 
DTFCP I/O Subroutines 26 4 
DTFCP Macro 75 

Parameters 75 
DTFCP Message Writers ($$BOCPMl and 

$$B0CPM2) 94, 95 
DTFCP Open 

Input Tape ($$BOCPTl) 93 

Output Tape ($$BOCPT2) 9 3 

Version 1 Only, Phase 1 ($$B0CP11) 92 

Version 1 Only, Phase 2 ($$B0CP12) 92 
DTFCP Tables 

DISK=NO 80 

DISK=OMITTED 82 

DISK=YES 77 
DTFDI (Device Independent System) Files 86 
DTFDI Close Tape Files ($$BCCPT1) 93 
DTFDI I/O Subroutines Chart RC 264 
DTFDI Macro 89 
DTFDI Message Writers ($$B0CPM1 and 

$$B0CPM2) 94 
DTFDI Open 

Input Tape ($$BOCPTl) 93 

Output Tape ($$BOCPT2) 93 
DTFDI Table 87-89 
DTFMR 

Magnetic Ink Character Recognition 19 

Close ($$BCMR01) 27 

Macro 19 

Message Writer ($$BMMR20) 27 

Open ($$BOMR01) 26 

Table 20 
DTFMT Macro 

Data Files 42 

Workfiles 42 
DTFMT 

Magnetic Tape Close - See Close, 
Magnetic Tape 

Macro, Data Files 42 

Macro, Workfiles 42 

Open - See Open, Magnetic Tape 

Tables Data Files 43 

Tables Workfiles 51 
DTFOR 

Optical Reader 27 

Close 31 

Macro 27 

Open ($$BOOR01) 31 

Table 2 8 
DTFPH Macro 42 

DTFPH Macro (Magnetic Tape) 42 
DTFPH Table, Magnetic Tape 52 



DTFPR (Printer) Files 31 

Macro 31 

Table 32 
DTFPT 

Paper Tape 34 

Macro 34 

No Translation, Shifts, or Deletes 35 

Translation, Shifts, Deletes with 
Fixed Unblocked Records 37 

Translation, Shifts, Deletes with 
Undefined Records 39 

Translation, No Shifts or Deletes 36 
DTFXX Macros 

DTFCD 13 

DTFCN 17 

DTFCP 75 

DTFDI 86 

DTFMR 19 

DTFMT 42 

DTFOR 27 

DTFPH (Magnetic Tape) 42 

DTFPR 31 

DTFPT 34 

EOF/EOV Monitor ($$BCE0V1) 67 
EOF/EOV Monitor, Magnetic Tape 

($$BCEOVl) 67 
EOFADDR= , DTFCP Macro Parameter 76 
Error Messages 286 
Error Recovery, Punch ($$BERRTN) 91 

FEOV Macro 54 

FEOV Macro, MTMOD Chart HD 159 

File Labels 

General Information - See Volume 1 

Standard Magnetic Tape 60 
Flowchart Symbols 98 

GET Macro 

CDMOD 17 

CDMOD Charts BB-BD 104-106 

CPMOD, IOPTR=YES 84 

CPMOD, IOPTR=YES Chart MC 220 

CPMOD, One I/O Area 84 

CPMOD, One I/O Area Chart MB 219 

CPMOD, Two I/O Areas 84 

CPMOD, Two I/O Areas Chart MA 218 

DIMOD, One I/O Area 89 

DIMOD, One I/O Area Charts NA-NB 228 

DIMOD, Two I/O Areas 90 

DIMOD, Two I/O Areas Charts NC-ND 230 

DTFCN 18 

DTFCN Chart CA 111 

MRMOD 24 

MRMOD Charts DA-DC 112-115 

MTMOD, Fixed Records 54 

MTMOD, Fixed Records Charts HE-HG 160 

MTMOD, Undefined Records 54 

MTMOD, Undefined Records 

Charts HE-HG 160 
MTMOD, Variable Records 54 
MTMOD, Variable Records 

Charts HE-HG 160 
ORMOD, Blocked Records 30 
ORMOD, Blocked Records Charts EJ-EN 130 
ORMOD, Unblocked Records 30 
ORMOD, Unblocked Records 

Charts EE-EH 126 



Index 
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PTMOD, No Translation 40 

PTMOD, No Translation Chart GA 150 

PTMOD, Translation, Shifted Code, 

Fixed Unblocked Records 41 
PTMOD, Translation, Shifted Code, Fixed 

Unblocked Records Charts CC-CD 113 
PTMOD, Translation of Shifted Code 41 
PTMOD, Translation of Shifted Code 

Chart GB 151 



PTMOD , Trans lation , 
Undefined Records 

PTMOD, Translation, 
Undefined Records 
Charts GE-GF 154, 



Shifted Code 

41 
Shifted Code 

155 



26 



HDR1, Standard Magnetic Tape File 
Label 60 

Initialization and Termination 

CP and DI Files 91 

Magnetic Ink Character Recognition 

Magnetic Tape Files 58 

Optical Reader Files 31 

Unit Record Files 12 
IOAREA=, CPMOD Macro Parameter 83 
IOPTR= , CPMOD Macro Parameter 84 
IOPTR= , DTFCP Macro Parameter 76 



Job Control Magnetic Tape Open 

($$BJCOPT) 66 
Job Control Statements for Magnetic 

Tape Files 61 

Label Information, Magnetic Tape 

(SYSRES) 61 
Label Processing, General - See Volume 1 
Labels 58-60 

Flowchart 277 

Magnetic Tape 58 

Magnetic Tape Standard File 60 

Magnetic Tape Standard Volume 59 

Magnetic Tape VOL1, Standard Volume 59 
LITE Macro, MRMOD 25 
LITE Macro, MRMOD Chart DE 117 
Logic Modules 

CDMOD (Card Device) 16 
. CPMOD (Compiler) 83 

Data Files 53 

DIMOD (Device Independent System) 89 

DTFCN (Console) 17 

Magnetic Tape Files Data Files 53 

Magnetic Tape Files Workfiles 53 

MRMOD (Magnetic Ink Character 
Recognition - MICR 23 

ORMOD (Optical Reader) 29 

PRMOD (Printer) 32 

PTMOD (Paper Tape) 40 

Workfiles 53 
Logical Transients 

$$BCCPT1 94 

$J?BCCPT1 Detail Charts 261 

$$BCE0V1 67 

$$BCE0V1 Detail Charts 201 

$$BCL0SP 94 

$$BCLOSP Detail Charts 26 5 

$$BCMR01 27 

$$BCMR01 Detail Charts 120 

$$BCMT01 67 



$$BCMT01 


Detail 


Charts 


20 3 


$$BCMT02 


68 






$$BCMT02 


Detail 


Charts 


205 


$$BCMT0 3 


68 






$$BCMT0 3 


Detail 


Charts 


207 


$$BCMT04 


69 






$$BCMT04 


Detail 


Charts 


208 


$$BCMT05 


70 






$$BCMT05 


Detail 


Charts 


210 


$$BCMT06 


71 






$$BCMT06 


Detail 


Charts 


212 


$$BCMT0 7 


71 






$$BCMT0 7 


Detail 


Charts 


213 


$$BERRTN 


91 






$$BERRTN 


Detail 


Charts 


238 


$$BJCOPT 


66 






$$BJCOPT 


Detail 


Charts 


198 


$$BMMR20 


27 






$$BMMR20 


Detail 


Charts 


121 


$$BMSGWR 


73 






$$BMSGWR 


Detail 


Charts 


217 


$$B0CPM1 


95 






$$B0CPM1 


Detail 


Charts 


269 


$$BOCPM2 


95 






$$BOCPM2 


Detail 


Charts 


269 


$$B0CPT1 


93 






$$B0CPT1 


Detail 


Charts 


250 


$$BOCPT2 


93 






$$BOCPT2 


Detail 


Charts 


255 


$$BOCP01 


91 






$$BOCP01 


Detail 


Charts 


239 


$$BOCP02 


92 






$$BOCP02 


Detail 


Charts 


242 


$$BOCPll 


92 






$$B0CP11 


Detail 


Charts 


245 


$$B0CP12 


93 






$$B0CP12 


Detail 


Charts 


248 


$$BOMR01 


27 






$$BOMR01 


Detail 


Charts 


119 


$$B0MSG1 


95 






$$B0MSG1 


Detail 


Charts 


272 


$$BOMSG2 


96 






$$BOMSG2 


Detail 


Charts 


274 


$$BOMTOM 


72 






$$BOMTOM 


Detail 


Charts 


216 


$$BOMTOW 


72 






$$BOMTOW 


Detail 


Charts 


216 


$$BOMT01 


61 






$$BOMT01 


Detail 


Charts 


187 


$$BOMT02 


62 






$$BOMT02 


Detail 


Charts 


190 


$$BOMT0 3 


63 






$$BOMT0 3 


Detail 


Charts 


191 


$$BOMT04 


64 






$$BOMT04 


Detail 


Charts 


193 


$$BOMT05 


65 






$$BOMT05 


Detail 


Charts 


194 


$$BOMT06 


66 






$$BOMT06 


Detail 


Charts 


196 


$$BOOR01 








$$BOOR01 


Detail 


Charts 


144 


$$BOUR01 


12 






$$BOUR01 


Detail 


Charts 


101 



Macros (See Individual Macro) 
Magnetic Tape Blocking/Deblocking 
Subroutines Chart HT 173 
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Magnetic Tape Close 

All Files but Work ($$BCMT05) 70 

Alternate Switching for EOV 
($$BCMT02) 68 

Alternate Switching for System 
Units ($$BCMT0 7) 71 

EOF/EOV, Input for ($$BCMT01) 67 

EOV, Backward ($$BCMT03) 69 

EOV, Output for ($$BCMT04) 69 

Workfiles ($$BCMT06) 71 
Magnetic Ink Character Recognition 

(MR) Files 19 

Buffer 25 

Close ($$BCMR01) 27 

DTFMR Macro 19 

Error Messages 27 

Initialization and Termination 26 

Logic Module (MRMOD) 23 

Message Writer ($$BMMR20) 27 

MRMOD Macro 23 

Open ($$BOMR01) 26 

Pocket Light Indicator 25 

Pocket Lights, Example 25 
Magnetic Tape CLOSE and EOF/EOV 

Routines 100 
Magnetic Tape OPEN Routines 99 
Magnetic Tape 42 

Alternate Switching for EOV 
($$BCMT02) 68 

Alternate Switching for System Units 
($$BCMT07) 71 

Checkpoint/Restart - See Volume 1 

Close All Files except Work 
($$BCMT05) 70 

EOF/EOV Input Forward ($$BCMT01) 67 

EOV Backward ($$BCMT03) 68 

EOV Backward ($$BCMT03) Chart KV 207 

EOV Output Forward ($$BCMT04) 69 

Workfiles ($$BCMT06) 71 
Message Cross-Reference List 286 
Message Writer Open 

I/O Nonstandard/Unlabeled ($$BOMT05) 65 

Input Standard Labels, Backward 
($$BOMT02) 62 

Input Standard Labels, Forward 
($$BOMT01) 61 

Job Control ($$BJCOPT) 66 

Output Standard Labels ($$BOMT03) 63 

Output Standard Labels ($$BOMT04) 64 

SYSRES Label Information 61 

Tapemarks , Placement of 58 

Workfiles ($$BOMT06) 66 
Message Writer 

Disk Open ($$B0MSG1, $$BOMSG2) 95 

DTFCP/DTFDI ($$BOCPMl, 2) 94 

Magnetic Ink Character Recognition 
($$BMMR20) 27 

Magnetic Tape ($$BOMTOM, $$BOMTOW, 
$$BMSGWR) 72 
MICR - See Magnetic Ink Character 

Recognition 
Microfiche Reference List 29 
Modules - See Logic Modules 
MRMOD (Magnetic Ink Character 

Recognition) 23 
MRMOD Macro 23 
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MRMOD Module 

CHECK Macro 24 

CHECK Macro Charts DA-DC 

DISEN Macro 24 

DISEN Macro Chart DD 116 

GET Macro 24 

GET Macro Charts DA-DC 113 

LITE Macro 25 

LITE Macro Chart DE 117 

READ Macro 26 

READ Macro Charts DA- DC 113 

WAITF Macro 26 

WAITF Macro Chart DF 118 
MTMOD (Magnetic Tape) 53 
MTMOD Macro 53 

Block/Deblock Subroutine 173 

Work Subroutines, Fixed and Variable 
Records 174 

Work Subroutines, Undefined Records 175 

CHECK 5 4 

CHECK Chart HA 156 

CNTRL, Data Files 54 

CNTRL, Data Files Chart HB 157 

CNTRL, Workfiles 54 

CNTRL, Workfiles Chart HC 158 

FEOV 54 

FEOV Chart HD 159 

GET, Fixed Records 54 

GET, Fixed Records Charts HE-HG 160 

GET, Undefined Records 54 

GET, Undefined Records Charts HE-HG 160 

GET, Variable Records 54 

GET, Variable Records Charts HE-HG 160 

NOTE, Workfiles 55 

NOTE, Workfiles Chart HH 163 

POINTR, Workfiles 55 

POINTR, Workfiles Chart HJ 164 

POINTS, Workfiles 55 

POINTS, Workfiles Chart HK 165 

POINTW, Workfiles 56 

POINTW, Workfiles Chart HL 166 

PUT, Fixed Records 56 

PUT, Fixed Records Charts HM-HN 167 

PUT, Undefined Records 56 

PUT, Undefined Records Charts HM-HN 167 

PUT, Variable Records 56 

PUT, Variable Records Charts HM-HN 167 

READ, Workfiles 56 
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TRUNC 57 

TRUNC Chart HR 171 

WRITE, Workfiles 57 

WRITE, Workfiles Chart HS 172 
MTMOD Modules 53 

Bypass Checkpoint Records Routine 57 

Nonstandard Label Magnetic Tape Open 

($$BOMT05) 65 
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Open 

Console (CN) Files 17 
Device Independent DTFCP/DTFDI 

Files ($$BOCP01) 91 
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DTFOR Macro 27 
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ORMOD Macro 29 
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ORMOD Module 

CNTRL Macro 29 
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READ Macro 30 
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Charts HM-HN 167 
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